Export sous forme d'image

Version imprimable

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

18/04/2018, 01h04
PhilippeF75

Export sous forme d'image
Bonjour,
Je suis sous Excel 2016 et VBA 7.1 et cette solution qui marchait très bien sous Excel-2010 ne fonctionne plus.
En fait, elle fonctionne en mode pas à pas d'exécution de la macro mais pas en mode d’exécution normal.
Le problème se situe entre les lignes .Paste et .Export :
Code:

1 2 3 4 With Chart1 .Paste .Export Chemin & NomImage, "jpg" End With
En pas à pas le Paste s'exécute et l'image sauvegardée est bonne, en mode exécution, le Paste ne s'exécute pas et l'image sauvegardée est vide.
Ajouter un DoEvents ou un Sleep entre les deux n'y fait rien...
Quelqu'un a t-il une idée ?
18/04/2018, 06h05
Invité

Citation:

Envoyé par PhilippeF75

Bonjour,

Je viens de constater le problème. Effectivement, le collage ne passe pas en automatique alors que le pas à pas fonctionne. J'ai essayé de changer plusieurs paramètres sans succès. La recherche continue (sans garantie).
18/04/2018, 07h25
unparia

Bonjour
La description du problème donne à penser que la méthode Export intervient alors que la méthode Paste n'a pas terminé totalement son travail graphique.
Utiliser Sleep ne servirait à rien, puisque Cela aurait pour effet d'interrompre tout travail
Application.Wait interrompt l'exécution de la macro, mais je ne sais pas si interrompt également tout le reste.
Un seul Doevents risque d'être trop "court"

Je n'ai pas office 2016 mais proposerais volontiers :
- soit des doevents en boucle
- soit l'utilisation de application.Ontime pour déclencher un peu plus tard une procédure distincte ne contenant que la méthode export

"proposerais volontiers", mais à mon grand regret car aucune de ces propositions n'est totalement orthodoxe.
18/04/2018, 11h54
patricktoulon

re
re
la gestion d'attente du bitmap dans le clipboard ne peut se faire vraiment correctement que par une api dans un do loop
c'est l'api IsClipboardFormatAvailable
declaration 32 bit

Code:

Private Declare Function IsClipboardFormatAvailable Lib "User32" (ByVal wFormat As Integer) As Long

le format attendu c'est 2 en hex c'est "&H2"
boucle d'attente
Code:

1 2 'on va boucler dans que le contenu du clipboard n'est pas BITMAP soit (2) Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(2): Loop While hPicAvail = 0
pour le format metafile c'est "14"
18/04/2018, 16h04
PhilippeF75

Merci pour vos réponses.
Je viens d'essayer la solution de PatrickToulon.
Malheureusement, la boucle est infinie car le Paste ne se fait toujours pas...
Donc le problème est légèrement en amont.
18/04/2018, 16h10
Invité

Citation:

Envoyé par PhilippeF75

J'ai aussi testé la solution de Patrick, sans résultat également. Le debug.print hPicAvail donne 1.
18/04/2018, 18h51
patricktoulon

re

@philippe

Citation:

Je suis sous Excel 2016 et VBA 7.1

il te faut faire la declaration en consequence bien evidement j'ai donné la declaration 32 bit vba 6

Code:

Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
18/04/2018, 19h01
Pierre Fauconnier

Ne fonctionne pas chez moi non plus...

[EDIT] le pouce rouge n'y change rien... ;) [/EDIT]

milles excuse a tous le".copypicture envoit dans le clipboard au format metafile c'est donc bien 14 comme je l'ai sugeré plus haut

perso j'utilise copy avec xlscreen ou xlbitmat donc le format bitmap attendu dans le clipboard
pour en revenir ici
voici un exemple tester sur windows 7 64 bits et excel 2007 32 bits
je vide le clipboard entre chaque copie pour tester vraiment le do/loop de l'api IsClipboardFormatAvailable
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long Sub exporte_image() Dim Plage1 As Range Dim Plage2 As Range Dim chart1 As Object Dim chart2 As Object With Sheets("Feuil1") mesplage = Array("A2:K68", "A69:K180") For i = 0 To UBound(mesplage) Set Plage = .Range(mesplage(i)) Debug.Print IsClipboardFormatAvailable(2) With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With 'on vide le clipboard entre chaque copie pour tester vraiment le available Plage.CopyPicture Debug.Print IsClipboardFormatAvailable(14) ' CopyPicture atterit dans le clipboard en metafile Set chart1 = .ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height).Chart Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0 'Or (Timer - T) > 1000 Debug.Print IsClipboardFormatAvailable(14) ' CopyPicture atterit dans le clipboard en metafile chart1.Paste chart1.Export Environ("userprofile") & "\Desktop\image_" & i & ".jpg", "jpg" .ChartObjects.Delete Next End With End Sub
encore une fois milles excuses
perso j'utiliserais copypîcture seulement si j'utiliserais olecreatepictureindirect avec le guid complet de data (0) a data(8) pour sauver le Hpic en jpg
copier en xlbitmap est suffisant ou xlscreen si il y est sensé avoir des shapes a prendre avec dans la capture

ps; debrouillez vous pour la decaration 64 bit vba 7 perso je ne peux pas tester chez moi 2007 et 2010 32 bits

pour info
avec

Code:

Plage.CopyPicture xlBitmap '

on a les valeurs ,les object presents au niveau de la page,MAIS!! pas le gridline
et le do /loop c'est avec 2

Code:

Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0 'Or (Timer - T) > 1000

avec

Code:

plage.copypicture xlscreen

on a a tout (les shapes ,tout objects,gridline ,etc...)meme si la fentre application est reduite
et le do/loop c'est 2 aussi (bitmap)

Code:

Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0 'Or (Timer - T) > 1000

pour info aussi si utilisation de sendkey(touchesnapshot) c'est bitmap aussi(pour une capture de userform par exemple
voila
j'espere qu'avec tout ca je suis pardonné ;) sinon tant pis :mouarf:

18/04/2018, 20h05
Pierre Fauconnier

Ca ne fonctionne pas non plus avec 14... :( (j'avais testé puisque tu le mentionnais dans ton post)

1 pièce(s) jointe(s)

vraiment bisarre ca
demo avec debug

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long
Sub exporte_image()
    Dim Plage1 As Range
    Dim Plage2 As Range
    Dim chart1 As Object
    Dim chart2 As Object
    With Sheets("Feuil1")
        mesplage = Array("A2:K68", "A69:K180")
        For i = 0 To UBound(mesplage)
            Debug.Print "copie de la plage(" & i & ")"
            Set Plage = .Range(mesplage(i))
            With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With    'on vide le clipboard entre chaque copie pour tester vraiment le available
            Debug.Print "contenu  du  clipboard avant copie =""" & CreateObject("htmlfile").parentwindow.clipboardData.GetData("Text") & """"
            Debug.Print "avant copi format attendu est 14 0 pour faux 1 pour vrai donc il est à " & IsClipboardFormatAvailable(14)
            Plage.CopyPicture
            Set chart1 = .ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height).Chart
            Do: DoEvents: hPicAvail = IsClipboardFormatAvailable(14): Loop While hPicAvail = 0    'Or (Timer - T) > 1000
            Debug.Print "contenu format (14) apres do/loop = " & IsClipboardFormatAvailable(14)    ' CopyPicture atterit  dans  le clipboard  en  metafile
            chart1.Paste
            chart1.Export Environ("userprofile") & "\Desktop\image_" & i & ".jpg", "jpg"
            .ChartObjects.Delete
        Next
 
    End With
End Sub

resultat
Pièce jointe 371321
j'invente pas pourtant

18/04/2018, 20h20
Pierre Fauconnier

Patrick,

Ton test dit que le clipboard contenait bien un truc de type 14. Ca ne dit pas que le fichier image a été produit correctement et que c'est une image conforme à la plage souhaitée.

Voici probablement pourquoi ça ne fonctionne pas. Regarde le premier message de la discussion. Tu y verras un lien vers une discussion parlant d'une solution donnée par Eric sur la version 2010. Le demandeur dit explicitement que cette solution ne fonctionne pas sur 2016. Et toi, tu viens avec une version XL2007. Comment veux-tu que tes tests soient pertinents? Il y a de fortes chances pour que ça ne passe pas la barre 2007=>2016 si ça ne passe pas la barre 2010=>2016, non?
18/04/2018, 20h21
unparia

Pour rappel :

Citation:

Je suis sous Excel 2016 et VBA 7.1 et cette solution qui marchait très bien sous Excel-2010 ne fonctionne plus.
En fait, elle fonctionne en mode pas à pas d'exécution de la macro mais pas en mode d’exécution normal.
18/04/2018, 20h34
patricktoulon

re

si elle passe en pas a pas alors voir si l'api est toujours prise en compte en vba 7 ou voir declaration pour "#if VBA7 versionapi 1 ELSE version api 2 END IF " en haut de module

je testerais demain avec le pc du pitchoun il a W10 et 2016 je verrais bien

Citation:

Ton test dit que le clipboard contenait bien un truc de type 14. Ca ne dit pas que le fichier image a été produit correctement et que c'est une image conforme à la plage souhaitée.

mon test n'est pas fait pour tester un fichier produit mais le format de données dans le clipboard apres copypicture et do/loop c'est tout

etant donné que je le vide avant copypicture ce qui est dans le clipboard apres do/loop ne peut etre que les metadonnées image de la plage format (14)
je testerais demain avec le portable du petit
je vais faire une recherche vba 7 avec cet api je suis curieux
moi qui voulais passer a 2016 199€ pour etre emm... non merci ;)
rassure moi il existe bien en 32 bits au moins

toute page confondues dans ma recherche amennent a ceci:
Code:

1 2 3 4 5 #If VBA7 And Win64 Then Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32.dll" (ByVal wFormat As Long) As Long #Else Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" (ByVal wFormat As Long) As Long #End If

19/04/2018, 02h28
PhilippeF75

Bonsoir à tous (chez moi, c'est encore le soir...)
Je vois que ça agite bien ce sujet !
Précision : je suis sous Excel 2016 et VBA 7.1 en 32 bits sous Windows 10 (64 bits).

Citation:

Envoyé par patricktoulon

Bonjour Patrick,

J'ai testé ton code du post #11 avec la même configuration que Philippe.

Le code plante à la deuxième image.

Pièce jointe 371361

Pièce jointe 371365
Code:

1 2 3 4 5 6 7 8 9 copie de la plage(0) contenu du clipboard avant copie ="" avant copie format attendu est 14 0 pour faux 1 pour vrai donc il est à 0 contenu format (14) apres do/loop = 1 copie de la plage(1) contenu du clipboard avant copie ="" avant copie format attendu est 14 0 pour faux 1 pour vrai donc il est à 0 contenu format (14) apres do/loop = 1

19/04/2018, 07h14
Pierre Fauconnier

Patrick,

La solution demandée n'est pas de savoir ce qu'il y a dans le clipboard (on s'en fout, en fait), la solution demandée est d'obtenir un fichier image qui est la représentation fidèle de la plage souhaitée.

Tout test qui n'aboutirait pas à ce résultat est invalide. Par contre, teste la solution de la toute première discussion (celle mise en lien dans le premier message de cette discussion-ci) en 2007, sans boucle, api et compagnie. Obtiens-tu une un fichier image correct? Si oui, ça permettrait de savoir que 2007 travaille comme 2010, et donc que le problème est ultérieur à 2010. Il serait alors intéressant de tester en 2013 pour essayer de voir à partir de quand ça pose problème (bien que plusieurs facteurs puissent entrer en ligne de compte).

Mais quoi qu'il en soit, en 2016, ça ne fonctionne plus (pas de fichier image fidèle), et c'est bien cela qui doit être résolu (obtention de ladite image), et pas des tests sur des api qui vérifient que... Et je ne pense pas que ce soit l'appel de la fonction de l'api qui soit en cause.

;)

Bonjour,

Essayez en "activant" le Chart :
Code:

1 2 3 4 5 With Chart1 .Paste .Activate .Export Chemin & NomImage, "jpg" End With
ou :
Code:

1 2 3 4 5 With Chart1 .Activate .Paste .Export Chemin & NomImage, "jpg" End With
Second essai : préciser les noms des paramètres nommés utilisés :
Code:

1 2 3 4 5 With Chart1 .Paste .Activate End With ActiveChart.Export Filename:=Chemin & NomImage, FilterName:="jpg"

19/04/2018, 10h10
patricktoulon

re

Citation:

Envoyé par Pierre Fauconnier

Patrick,

La solution demandée n'est pas de savoir ce qu'il y a dans le clipboard (on s'en fout, en fait), la solution demandée est d'obtenir un fichier image qui est la représentation fidèle de la plage souhaitée.

Tout test qui n'aboutirait pas à ce résultat est invalide. Par contre, teste la solution de la toute première discussion (celle mise en lien dans le premier message de cette discussion-ci) en 2007, sans boucle, api et compagnie. Obtiens-tu une un fichier image correct? Si oui, ça permettrait de savoir que 2007 travaille comme 2010, et donc que le problème est ultérieur à 2010. Il serait alors intéressant de tester en 2013 pour essayer de voir à partir de quand ça pose problème (bien que plusieurs facteurs puissent entrer en ligne de compte).

Mais quoi qu'il en soit, en 2016, ça ne fonctionne plus (pas de fichier image fidèle), et c'est bien cela qui doit être résolu (obtention de ladite image), et pas des tests sur des api qui vérifient que... Et je ne pense pas que ce soit l'appel de la fonction de l'api qui soit en cause.

;)

j'avais deja testé tout au debut :elle fonctionne sauf que l'auteur du post 1 dans le lien a oublié de deleter le 2 chart

@eric si ca plante au 2d c'est deja plus significatif ca voudrais dire que il y a un temps requis aussi pour le delete du 1 er chart et la creation du 2d
l'ors du plantage dans le debug est que l'on est bon ?
essayer un doevents juste avant next mais bon si c'est ce que je crois on a un serieux soucis de memoire alloué

peut etre aussi essayer avec un seul chart

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