Export sous forme d'image

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/04/2018, 21h17
pijaku

Patrick,
Je n'y connais rien dans ces questions. J'essaie de trouver des solutions avec ma petite logique perso.
J'essaie juste d'apporter un peu de mon eau au moulin.

Pierre,
La ligne sur laquelle tu as mis ton point d'arrêt est primordiale dans la compréhension du problème.
L'as tu mis sur la ligne du Paste ou sur celle de Export?
19/04/2018, 21h21
Pierre Fauconnier

Franck,

Le point d'arrêt est sur le paste. J'allais réagir par rapport à cela sur le message de Jacques qui laisse supposer que le problème est entre le paste et l'export, mais il se situe selon moi sur la création de l'objet Chart, puisque c'est l'arrêt juste avant le paste qui permet que l'image soit bonne (Je n'avais pas encore testé la dernière proposition de Patrick)

[EDIT]
Mais comme la boucle dans la solution de Patrick est après le paste, je ne sais plus trop quoi penser... :koi:
19/04/2018, 21h38
patricktoulon

re

re
rien ne vous empleche de refaire avec l'ancienne methode maintenant que l'on sait ou ca plante
peut etre entre 2 add,paste,delete un do/loop sur le chart.count voir meme .pictures.count du chart
ca ne modifie en rien visiblement la velocité sur 2007 et 2010
les deux methodes fonctionnent
reste que cette version 1 chart me plait bien elle fonctionne sur 2007 2010 2016
parcontre que les choses soit claires j'ai ai trouver ou ca plante mais pas pourquoi (memoire ,procc,etc...)peut etre meme memoire graphique bref je n'en ai aucune idée
franck il n'y avais aucune critique je te disais simplement de faire le test dans une boucle assez lourde comme ca tu peux voir si le copy/paste a des ratés
19/04/2018, 21h51
patricktoulon

re

re
non non c'est moi c'est pas 21/22 mais 20/21 pardon :oops:
ca fatigue les enigmes :mouarf:
ca se joue a des milliemes de de miliemes de secondes
pour en avoir confirmation vous pouvez faire simplement un do/loop avec incrementation d'une variable ( ne pas oublier le doevents sinon bloquant) until variable =
perso je prefere toujours les boucles d'attente basée sur les objects eux meme quand c'est possible

version complete

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
#If VBA7 Then
    Private Declare ptrsafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long
#Else
    Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long
#End If
Sub exporte_image()
    Dim plage As Range, chart1 As Object, i As Long, mesplage As Variant, hPicAvail As Long
    With Sheets("Feuil1")
        mesplage = Array("A2:K68", "A69:K180")
        Set chart1 = .ChartObjects.Add(0, 0, 1, 1).Chart
        For i = 0 To UBound(mesplage)
            With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With    'on vide le clipboard entre chaque copie pour tester vraiment le available
            Set plage = .Range(mesplage(i))
            With chart1
                With .Parent
                    .Width = plage.Width: .Height = plage.Height: .Left = plage.Width + 20:
                    plage.CopyPicture
                    Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0    'Or (Timer - T) > 1000
                    .Select

ici dans le tour de boucle au cas ou le clipboard n'est pas encore fini de vider le chart.picture(1) pdu precedent paste est fini de deleter

Code:

Do: DoEvents: Loop Until .Chart.Pictures.Count = 0

on colle

Code:

.Chart.Paste

ici boucle tant qu'il n'y a pas une image coller ce qui devrait donner pictures.count=1

Code:

Do: DoEvents: Loop While .Chart.Pictures.Count = 0

.
et enfin exportation et le retse

Code:

1
2
3
4
5
6
7
8
Chart.Export Environ("userprofile") & "\Desktop\image_" & i & ".jpg", "jpg"
                    .Chart.Pictures(1).Delete    'on delete a chaque fois l'image collée (important si les plages capturées sont differentes enrme de taille)
                End With
            End With
        Next
        chart1.Parent.Delete
    End With
End Sub

faire attention les deux do loop ne sont pas les memes (while/until)
voila

19/04/2018, 22h02
unparia

Bonjour Pierre

Citation:

puisque c'est l'arrêt juste avant le paste qui permet que l'image soit bonne

Cela ne permet pas de conclure avec certitude.
Cet arrêt peut fort bien avoir interrompu les autres messages Windows. Et le prochain message système WM_PAINT, reçu du fait du Paste, peut alors être compris sans entrave ni ambiguïté.
Bien malin celui qui serait capable de décortiquer un mécanisme dont il ne connaît pas les rouages décidés. Tout peut arriver et être assez vicieusement trompeur.
20/04/2018, 05h39
Invité

Citation:

Envoyé par patricktoulon

Bonjour Patrick,

Ton code fonctionne parfaitement sans avoir à mettre tes lignes de code à la fin de ton dernier message. Encore bravo ! :bravo:

Merci.
20/04/2018, 09h07
patricktoulon

re

Bonjour eric
merci
ces lignes n'ont pas été ajoutés en fait c'est le model original et c'est ce qui m'a permis ne mettre le doigt dessus je fait souvent comme ca j'enleve les lignes apres
apres elle ne mangent pas de pain au pire elles font 1!!! tour si si il y a la picture dans chart ou non la diponibilité du chart n'est plus a prendre en compte puisqu'il l'est normalement a coup sur
comme je le créé avant

chose bien sympa c'est qu'elle foncionne de 2007 a 2016 pas testé 2013 mais il ne devrait pas avoir de raisons

je la placerais dans les contributions pour que ce probleme qui visiblement est (connu depuis un moment et je n'ai pas trouvé de solution) n'en soit plus un
20/04/2018, 11h26
patricktoulon

re
petite correction je l'ai pas vu sur le coup!

dans la boucle je repositionne et redimentionne selon la plage le.left etait mal positionné si la plage ne commencais pas en colonne"A" donc
Code:

1 2 With .Parent .Width = plage.Width: .Height = plage.Height: .Left =plage.left+ plage.Width + 20:
comme ca on est sur de ne pas capturer une partie du graph ca serait drole non?
;)

Voir 40 message(s) de cette discussion en une page