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