[VBA-E] Image d'une plage de cellule

Je sais que l'on peut enregistrer un graphique en image. Je voudrais savoir si on pouvait créer un fichier image d'un tableaux Excel par exemple je voudrais dire que de A1 à C6 doit etre sauvegardé en image. Pour l'instant, pour créer l'image j'utilise la table de données du graph mais bon c'est un peu bancal comme solution!!!

J'ai encore plus tordu : en utilisant un ShapeRange

Code:

---

1 2 3 4 5 6 7 8

Dim wsh As Worksheet, sh As Shape, myplage As Range Set wsh = Worksheets("Feuil1") Set sh = wsh.Shapes.AddShape(msoShapeRectangle, 0, 0, 10, 10) Set myplage = wsh.Range("A1:C6") myplage.Copy sh.Select (myplage) wsh.Paste sh.Delete

---

mais la méthode a l'avantage de produire un gif transparent
dont on peut à loisir choisir le fond (même texturé) etc.

Merci c'est exactement ce que je voullais car j'utilise ces tableau pour les afficher sur l'intranet et ma solution m'oblige à faire des découpage à l'affichage donc ce n'est pas viable comme solution!!!
par contre comment faire pour l'enregistrer en fichier image?Il faut le publier? Créer une procédure pour le sauvegarder?

Sers-toi du presse papier et d'un controle Image
(ou à défaut d'un object chart qui se comporte comme tel)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Export_RangeAsImage(MyPlage As Range, FullFileName As String, Optional ImageFilter As String = "GIF") Dim wsh As Worksheet, sh As Shape, ch As ChartObject Set wsh = MyPlage.Worksheet Set sh = wsh.Shapes.AddShape(msoShapeRectangle, 0, 0, 10, 10) sh.Select (MyPlage)   MyPlage.Copy wsh.Paste sh.Delete   Selection.Copy Set ch = ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height) ch.Border.LineStyle = 0 ch.Chart.Paste Selection.Delete   ch.Chart.Export Filename:=Split(FullFileName, ".")(0) & "." & ImageFilter, FilterName:=ImageFilter ch.Delete End Sub

---

c'es parfait ca roule. Me reste plus qu'à integrer cette procédure au reste pour l'automatiser et ce sera bon!!!! Merci