Convertir les formes en image avec une macro

Bonjour à vous,

Est-il possible de à l'aide d'une macro de convertir toutes les formes graphique d'une feuille en image.?
(les formes sont groupées).

Si oui quelqu'un quel est le code svp.?

Merci d'avance.

Bonjour

As-tu essayé avec l'enregistreur de macros pour avoir le code ?

Philippe

bonjour,
il faut connaitre le nom du graphique.
ceci dit, ci tu parle de formes cylindrique???

Code:

---

1 2 3 4 5 6 7 8

Public Sub SaveAs_Image(Feuille As Worksheet, Non As String, fichier As String) For Each MyObject In Feuille.Shapes If MyObject.Name = Non Then MyObject.Chart.Export Filename:=fichier, FilterName:="GIF" Exit Sub End If Next End Sub

---

Code:

---

1 2 3

Sub Test() SaveAs_Image sheets( "Feuil1"),"MyGraph", "C:\MyRep\MyGraph.gif" End Sub

---