Rapport entre les objets Shape, ChartObject et Chart

Version imprimable

Bonjour, je m'initie aux arcanes de VBA en cherchant à réaliser un VuMêtre à l'aide d'un graphique (demi-anneau, 2 couleurs).
Dans le code qui suit j'utilise des objets Shape, ChartObject et Chart pour faire référence au même graphique. Puis-je utiliser le même objet (par exemple ChartObject) partout ?
Un Chart serait un ChartObject qui serait lui-même un Shape !!! est-ce bien cela ?

Merci pour votre aide

PS : j'ai posté une autre question sur cette procédure

Voici la procédure

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sub Graphique()
Dim Plage As Variant
Dim NomDuGraphe As String
Dim MonVuMetre As Chart
Dim MaSerie As Series
 
'Entrée des valeurs de la série
    Plage = Array(20, 30, 50)
'Création du graphique vide
    ActiveSheet.Shapes.AddChart.Select
'Nom du graphique
    NomDuGraphe = ActiveChart.Parent.Name
'Index du graphique (c'est le dernier)
    nb = Shapes.Count
'Mise à l'échelle du graphique
    With ActiveSheet.Shapes(nb)
    .Left = 30
    .Top = 80
    .Width = 100
    .Height = 100
   End With
'Mise en forme du graphique
    Set MonVuMetre = ActiveChart
    With MonVuMetre
    'Ajout de la série
        .SeriesCollection.NewSeries.Values = Plage
    'Type de graphique
        .ChartType = xlDoughnut
    'Suppression de la légende
        .HasLegend = False
    'Rotation
        .Rotation = 270
    Set MaSerie = .SeriesCollection(1)
    With MaSerie
    'Partie gauche en rouge
        .Points(1).Select
        Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    'Partie droite en vert
        .Points(2).Select
        Selection.Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
    'Effacement du secteur inférieur
        .Points(3).Select
        Selection.Format.Fill.Visible = msoFalse
    End With
    'Titre du graphique
        .HasTitle = True
        With .ChartTitle
            .Text = Plage(0)
            .Top = 52
            .Left = 42
            .Font.Size = 9
        End With
    'Zone de traçage
        .PlotArea.Select
        With Selection
            .Left = 20
            .Top = 20
            .Height = 60
            .Width = 60
            MsgBox "Left " & .Left
            MsgBox "Top " & .Top
            MsgBox "Height " & .Height
            MsgBox "Width " & .Width
        End With
    End With
Cells(1, 1).Select
End Sub

16/03/2013, 13h35
Daniel.C

Bonjour,

Je ne sais pas si ma réponse va t'éclairer. La ligne :

Code:

ActiveSheet.Shapes.AddChart.Select

crée à la fois un ChartObject et un graphique (Chart). "ChartObject" est un Shape (quand tu en crées un, le compteur de Shapes augmente de 1) qui contient un graphique. Le ChartObject permet l'inclusion du graphique dans la feuille de données. Il n'y a pas de ChartObject quand le graphique est sur une feuille de graphique. L'objet Chart contient les propriétés du graphique indépendamment de l'endroit où il se trouve.
Je n'ai pas trouvé la question à propos du code. Est-ce que tu as ouvert un autre fil ?
16/03/2013, 17h49
horemheb

Merci Daniel.C de me répondre.
J'ai joint le code pour l'exemple.
Quand tu dis :

Citation:

crée à la fois un ChartObject et un graphique (Chart)

je suppose que c'est le même objet

Pourquoi "ActiveSheet.Shapes.AddChart" crée un "ChartObject", pas un "Chart" ?
Pourquoi le nom du graphique s'obtient par un "ActiveChart.Parent" alors que pour l'activer un "ActiveChart" suffit ? est-ce que le mystérieux polymorphisme de la POO a frappé une fois encore ?

Je suis loin d'avoir tout compris :D
16/03/2013, 18h54
Daniel.C

Citation:

Quand tu dis :

Citation:

crée à la fois un ChartObject et un graphique (Chart)

je suppose que c'est le même objet

Pas exactement. Tu crées un "Chartobject" qui lui même contient le graphique. Tu y fais référence avec la syntaxe :

Code:

Set Graph = ActiveSheet.ChartObjects("GR1").Chart

Citation:

Pourquoi "ActiveSheet.Shapes.AddChart" crée un "ChartObject", pas un "Chart" ?

L'un existe avec l'autre, comme une coquille d'oeuf contient le jaune.

Citation:

Pourquoi le nom du graphique s'obtient par un "ActiveChart.Parent" alors que pour l'activer un "ActiveChart" suffit ?

Le nom du graphique s'obtient par :

Code:

Nom = ActiveSheet.ChartObjects("GR1").Chart.Name

ou :

Code:

Nom = ActiveChart.Name

si le graphique est sélectionné.

Code:

Nom = ActiveChart.Parent.Name

donne le nom du ChartObject.
17/03/2013, 13h46
horemheb

Merci pour tes explications. J'ai 3000 autres questions mais je vais d'abord essayer de trouver les réponses moi-même.