Engendrer une image depuis excel - VB/VBA/VBS - Programmation
Marsh Posté le 02-10-2004 à 09:23:35
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
Marsh Posté le 30-09-2004 à 16:11:04
Slt à tous
J'aimerais savoir si kelkun sait comment on peut engendrer une image depuis excel.Pour etre précis j'ai une image excel que je complète avec des zones de texte et j'aimerais ensuite imprimer cette image malheureusement excell m'engendre un fichier d'impression tellement énorme (23 Mo pour une image de 500 Ko) c'est pourkoi je voudrais savoir si il m'est possible de créer une image de cette image complété
merci beaucoup à celui ki c comment faire si tenter ke ce soit faisable parceke g essayer de configurer l'imprimante mais rien ni fait