Sauver en JPG ou Gif une zone imprimable

[Charmout]

Bonjour,

Je souhaiterais savoir s'il y a un moyen de sauver sous forme de fichiers image (Jpg, gif ou autres) une zone imprimable. Cette zone peut contenir éventuellement des graphiques, des boutons, des labels...

Merci

 

[Celeda]

Bonjour,

Pour le graphique : sauver une image en .gif
macro récupérée sur le site de Stephane : xlbysteph.free.fr

ExportGraph sauve dans le même répertoire que le fichier actif;


Celeda

 

[Charmout]

Merci Celeda,
ta solution me servira pour une autre application.

Mon probleme est le suivant :
Je selectionne une plage de cellules et je cherche à creer avec, un fichier image... un peu comme une sorte de recopie d'écran.
La solution recopie d'écran ne me plait pas parce qu'elle dépend de la résolution d'écran et du zoom d'Excel.

merci

 

[Charmout]

Il y'a la solution ici :

http://groups.google.com/groups?hl=fr&lr=&threadm=uxxrRmF2DHA.2360%40TK2MSFTNGP10.phx.gbl&rnum=68&prev=/groups%3Fq%3Djpg%2Bgroup:microsoft.public.fr.excel%26start%3D60%26hl%3Dfr%26lr%3D%26scoring%3Dd%26selm%3DuxxrRmF2DHA.2360%2540TK2MSFTNGP10.phx.gbl%26rnum%3D68

 

[Celeda]

Bonjour,


Voici le code en question par Laurent Longre :

Sub ExportRangeAsImage()
'd'après LL
Dim Plage As Range
Dim Extension$, FichierImage$

Extension = "JPG"
FichierImage = "d:\Test_JPG.jpg" 'par exemple
Set Plage = ActiveSheet.UsedRange
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export FichierImage, Extension
End With
ActiveWorkbook.Close False

End Sub

(le code est à recopier dans un module standard du classeur dont la ou les
feuilles sont à exporter en images).


Mais il y avait peut-être un code similaire dans le grenier de XLD.


Celeda