bonjour Jack
j'espere que cet exemple pourra t'aider
Private Sub CommandButton2_Click()
Dim Gr As OWC.ChartSpace
Dim Largeur As Long, Hauteur As Long
Dim Ws As Worksheet
Dim nomImage As String
nomImage = 'C:\\\\\\\\grapheTemporaire.gif'
Largeur = 560
Hauteur = 480
Application.ScreenUpdating = False
'export du ChartSpace au format image Gif
Set Gr = Me.ChartSpace1
Gr.ExportPicture nomImage, 'gif', Largeur, Hauteur
'ajout d'une feuille dans le classeur , pour contenir l'image
'qui va etre imprimée
Set Ws = Worksheets.Add
Ws.Pictures.Insert(nomImage).Select
Ws.PrintOut 'impression
Application.DisplayAlerts = False
Ws.Delete 'suppression feuille
Application.DisplayAlerts = True
Kill nomImage 'suppression image
Application.ScreenUpdating = True
End Sub
bonne journée
MichelXld