Engendrer une image depuis excel

Engendrer une image depuis excel - VB/VBA/VBS - Programmation

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  :jap: à celui ki c comment faire si tenter ke ce soit faisable parceke g essayer de configurer l'imprimante mais rien ni fait

Reply

Marsh Posté le 30-09-2004 à 16:11:04   

Reply

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


Message édité par kilimanjaro le 08-10-2004 à 19:23:29
Reply

Marsh Posté le 04-10-2004 à 16:59:53    

merci bcp kili ça me dépanne bien

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed