POUR UN GRAPHIQUE
Sub Create_GIF()
Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(1).Chart
mychart.Export FileName:="c:\Mychart.gif", FilterName:="GIF"
End Sub
OU BIEN POUR COPIER DES INFOS EN IMAGES
(Ici extrait d'un de mes sub à modifier en fonction de tes besoins)
A mettre dans une userform avec une zone picture appelée IMAGE
Private Sub UserForm_Initialize()
ThisWorkbook.Activate
bas = Sheets("PARAM" ).Range("S65515" ).End(xlUp).row
ThisWorkbook.Sheets("PARAM" ).Range("S1:CD" & bas).Copy
Set Me.IMAGE.Picture = PastePicture(xlPicture)
End Sub
J'espére que cela va pouvoir t'aider
Message édité par kilimanjaro le 08-10-2004 à 19:23:29