Je souhaiterais savoir s'il y a un moyen de sauver sous forme de fichier
image (Jpg, gif ou autres) une zone imprimable. Cette zone peut contenir
éventuellement des graphiques, des boutons, des labels...
(message : Comment générer une image (gif) à partir d'un tableau)
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
"Charmout" wrote:
Bonjour,
Je souhaiterais savoir s'il y a un moyen de sauver sous forme de fichier image (Jpg, gif ou autres) une zone imprimable. Cette zone peut contenir éventuellement des graphiques, des boutons, des labels...
(message : Comment générer une image (gif) à partir d'un tableau)
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
"Charmout" wrote:
Bonjour,
Je souhaiterais savoir s'il y a un moyen de sauver sous forme de fichier
image (Jpg, gif ou autres) une zone imprimable. Cette zone peut contenir
éventuellement des graphiques, des boutons, des labels...
(message : Comment générer une image (gif) à partir d'un tableau)
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
"Charmout" wrote:
Bonjour,
Je souhaiterais savoir s'il y a un moyen de sauver sous forme de fichier image (Jpg, gif ou autres) une zone imprimable. Cette zone peut contenir éventuellement des graphiques, des boutons, des labels...
