Discussion :

[amapacha]

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.

[Invité]

Bonjour

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

Philippe

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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