paramètres graphiques VBexcel
Bonjour, je veux récupérer tous les paramètres graphiques d'un orkbook dans lequel plusieurs feuilles de graphiques existent.
L'idée est de créer une feuille d'"architecture" des documents graphiques.
Pour le moment je récupére la feuille, le titre des graphiques, les éléments de la légende (ou serie). Mais je voudrais récupérer les plages de données qui sont référencées pour une série données.
voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| Sub Architecture_Graphique()
Dim titre As String
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
NewSheet.Name = "Architecture"
NewSheet.Cells(1, 1).Value = "Name of the sheet"
NewSheet.Cells(1, 2).Value = "Chart Title"
NewSheet.Cells(1, 3).Value = "Chart Number"
NewSheet.Cells(1, 4).Value = "Chart Name"
NewSheet.Cells(1, 5).Value = "Chart Series Name"
NewSheet.Cells(1, 6).Value = "Chart Series Range"
i = 2
For Each feuil In Sheets
nom = feuil.Name
NewSheet.Cells(i, 1).Value = nom
i = i + 1
For Each cho In Worksheets(nom).ChartObjects
If cho.Chart.HasTitle = True Then
NewSheet.Cells(i, 2).Value = cho.Chart.ChartTitle.Text 'chart title
NewSheet.Cells(i, 3).Value = "Graphe N° " & cho.Index 'chart number
NewSheet.Cells(i, 4).Value = cho.Name 'chart name
For Each serie In cho.Chart.SeriesCollection
i = i + 1
On Error Resume Next
NewSheet.Cells(i, 5).Value = serie.Name
NewSheet.Cells(i, 6).Value = serie.????
Next serie
i = i + 2
End If
Next cho
Next feuil
End Sub |
Merci de votre aide
