Sujet Précédent Sujet Suivant

Exporter un graphique Excel en WMF

vinsou82 Messages postés 9 Date d'inscription mercredi 5 septembre 2007 Statut Membre Dernière intervention 25 septembre 2009 - 3 avril 2008 à 14:35
vinsou82 Messages postés 9 Date d'inscription mercredi 5 septembre 2007 Statut Membre Dernière intervention 25 septembre 2009 - 10 avril 2008 à 10:38
Bonjour à tous

Voilà j'ai un petit soucis avec le code suivant, je l'ai trouvé par hasard en faisant une recherche sur le net, et il se trouve que je n'arrive pas à la faire tourner sur mon fichier Excel 97, je précise que ma feuille ne contient qu'un seul graphique.

Voici le code:

Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Declare Function CopyEnhMetaFileA& _
Lib "gdi32" (ByVal hemfSrc&, ByVal lpszFile$)
Private Declare Function _
DeleteEnhMetaFile& Lib "gdi32.dll" (ByVal hemf&)

Sub SaveAsMetafile()
If ThisWorkbook.Sheets(1).ChartObjects.Count = 0 Then Exit Sub
On Error GoTo SaveWmf_Error
Dim Img As ChartObject, hCopy&, fName$
For Each Img In ThisWorkbook.Sheets(1).ChartObjects
Img.Copy: OpenClipboard 0&
hCopy = GetClipboardData(14)
If hCopy Then
fName = "C:" & Img.Name & ".wmf"
DeleteEnhMetaFile CopyEnhMetaFileA(hCopy, fName)
EmptyClipboard
End If
CloseClipboard
Next Img
Exit Sub
SaveWmf_Error:
MsgBox "Error " & Err.Number & vbLf & Err.Description, 48
End Sub

Je vais aussi vous dire comment je m'y suis pris: j'ai enregistré un début de macro dont j'ai remplacé le contenu par celui-ci dessus, déjà je ne suis pas trop sure de la méthode "d'intégration" de la macro à mon fichier.
Ensuite, à l'execution, le message d'erreur s'affiche dés la ligne " Img.Copy: OpenClipboard 0& ".
Le message est "Erreur de compilation  Sub ou fonction non définie"

Voilà je m'en remet à vous car je ne connais pas grand chose en la matière, et j'ai vraiment besoin de réaliser ces exports en  .wmf  .

Merci à tous

1 réponse

Réponse 1 / 1
vinsou82 Messages postés 9 Date d'inscription mercredi 5 septembre 2007 Statut Membre Dernière intervention 25 septembre 2009
10 avril 2008 à 10:38
Un chti uppage
0

Discussions similaires

tracer courbe en langage C
rin01 -
Ibebel -

5 réponses
EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute
wind3813 -
wind3813 -

2 réponses
Faire un copier-coller depuis Excel vers Word via une macro ?
Adoc5 -
bencharqui -

10 réponses
Calcul sur excel de l'inverse tangente en grade
HERTAN -
ucfoutu -

4 réponses
Remplir un formulaire PDF à partir di'un fichier excel
bgame -
the_little_big_man -

3 réponses
Rejoignez-nous