"Nicolas PR" a écrit dans le message de news:04eb01c3d55f$5c088ee0$
Comment transformer un tableau excel en une image
Sylvie
Bonjour, Michel t'a proposé une solution VBA. Sans macro, il faut procéder la façon suivante : 1) sélectionner les cellules excel à transformer en image 2) maintenir la touche majuscule appuyée et cliquer sur Edition 3) choisir Copier une image, 4) choisir une option (écran ou impression), 5) répondre ok, 6) cliquer sur coller fait apparaître l'image du tableau excel
-----Message d'origine----- Comment transformer un tableau excel en une image
.
Bonjour,
Michel t'a proposé une solution VBA.
Sans macro, il faut procéder la façon suivante :
1) sélectionner les cellules excel à transformer en image
2) maintenir la touche majuscule appuyée et cliquer sur
Edition
3) choisir Copier une image,
4) choisir une option (écran ou impression),
5) répondre ok,
6) cliquer sur coller fait apparaître l'image du tableau
excel
-----Message d'origine-----
Comment transformer un tableau excel en une image
Bonjour, Michel t'a proposé une solution VBA. Sans macro, il faut procéder la façon suivante : 1) sélectionner les cellules excel à transformer en image 2) maintenir la touche majuscule appuyée et cliquer sur Edition 3) choisir Copier une image, 4) choisir une option (écran ou impression), 5) répondre ok, 6) cliquer sur coller fait apparaître l'image du tableau excel
-----Message d'origine----- Comment transformer un tableau excel en une image
.
Michel Pierron
Bonjour Nicolas; Ici de je ne sais plus qui ni quand: Sub export_jpg() Application.ScreenUpdating = False Range("A1:B10").CopyPicture Workbooks.Add ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste .Export "C:Downloaded filesExcelPicture 1.jpg", "JPG" End With ActiveWorkbook.Close False End Sub
MP
"Nicolas PR" a écrit dans le message de news:04eb01c3d55f$5c088ee0$
Comment transformer un tableau excel en une image
Bonjour Nicolas;
Ici de je ne sais plus qui ni quand:
Sub export_jpg()
Application.ScreenUpdating = False
Range("A1:B10").CopyPicture
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Downloaded filesExcelPicture 1.jpg", "JPG"
End With
ActiveWorkbook.Close False
End Sub
MP
"Nicolas PR" <nprats@wanadoo.fr> a écrit dans le message de
news:04eb01c3d55f$5c088ee0$a101280a@phx.gbl...
Bonjour Nicolas; Ici de je ne sais plus qui ni quand: Sub export_jpg() Application.ScreenUpdating = False Range("A1:B10").CopyPicture Workbooks.Add ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste .Export "C:Downloaded filesExcelPicture 1.jpg", "JPG" End With ActiveWorkbook.Close False End Sub
MP
"Nicolas PR" a écrit dans le message de news:04eb01c3d55f$5c088ee0$