Exporter un graphique Excel en WMF

Signaler
Messages postés
9
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
25 septembre 2009
-
Messages postés
9
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
25 septembre 2009
-
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

Messages postés
9
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
25 septembre 2009

Un chti uppage