Discussion :

[nekcorp]

Bonjour,

Je souhaite savoir comment faire pour parcourir la présence des graphiques présents dans une feuille afin de pouvoir les exporter par la suite.

J'ai un code qui me permet d'exporter un graphique que je définis grâce à :

Code :

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

Set objChrt = Sheets("sheet1").ChartObjects(1)

Cependant j'aurai aimé parcourir l'ensemble des graphiques sans me préoccuper de leur nom où de leur ID.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub ExportGraph()
'
' ExportGraph Macro
'
Dim objChrt As ChartObject
Dim myChart As Chart
 
Set objChrt = Sheets("Sheet1").ChartObjects(5)
Set myChart = objChrt.Chart
 
myfileName = "myChart_5.png"
 
On Error Resume Next
Kill ThisWorkbook.Path & "\" & myfileName
 
myChart.Export Filename:=ThisWorkbook.Path & "\" & myfileName, filtername:="PNG"
 
MsgBox "Ok"
'
End Sub

Merci d'avance pour votre aide

[Jean-Philippe André]

Salut,

tu peux faire une boucle for each ou une boucle for en utilisant le count des chartobjects.