Discussion :

[bboy-eazy]

Bonjour,

Je suis face à un problème. J'aimerai réussir à selectionner un shape particulier. J'ai sur un feuilles plusieurs bouton qui me permettent de creer un graphique. J'aimerai positionner le graphique à un certain endroit d'où ce code qui vient de l'enregistreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
    ThisWorkbook.ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
    .ChartType = xlColumnStacked
    .SetSourceData Source:=ThisWorkbook.ActiveSheet.Range("A1:I6")
    For i = 1 To .SeriesCollection.Count
    .SeriesCollection(i).ApplyDataLabels
    Next i
    .SetElement (msoElementDataLabelCenter)
    End With
    ActiveSheet.Shapes(1).IncrementLeft -345
    ActiveSheet.Shapes(1).IncrementTop 112.5
    ActiveSheet.Shapes(1).ScaleWidth 1.5333333333, msoFalse, msoScaleFromTopLeft
End Sub

Je bloque à cette partie:

Code :

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

1
2
3
 ActiveSheet.Shapes(1).IncrementLeft -345
    ActiveSheet.Shapes(1).IncrementTop 112.5
    ActiveSheet.Shapes(1).ScaleWidth 1.5333333333, msoFalse, msoScaleFromTopLeft

En effet si je met le nom du shape créer et que je supprime le graphique et que j'en crée 1 nouveau, le nom n'est plus le même et j'ai une erreur. Je voulais donc selectionner le shapes actif qui est mon graphique et activeshapes n'existe pas... J'ai donc voulu passer par shapes(1) mais mon shapes(1) est mon bouton.... et oui quel dommage...

Finalement peut etre que le problème peut être gérer en disant directement où placer le graphique et quelle taille doit il faire or je ne trouve pas cette propriété... j'ai cherch" du coté des propriété de addchart mais ca ne fonctionnait pas quand j'ai fait ceci:

ThisWorkbook.ActiveSheet.Shapes.AddChart(,-345,112.5,,).Select 
Merci d'avance de votre aide

[vinc_bilb]

Bonjour,

En le déclarant au prélable? Quelquechose comme

Code :

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

1
2
3
4
5
Dim OShap As Shape
Dim OChart As Chart
    Set OShap = ThisWorkbook.ActiveSheet.Shapes.AddChart
    OShap.Select
    ....

[bboy-eazy]

merci pour ta réponse
Ca ne marchait pas plus en déclarant...

Par contre j'ai trouvé, j'ai finalement pu dimensionner directement le graphique lors de ca création:
et du coup plus besoin de passer par le shape

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
    ThisWorkbook.ActiveSheet.Shapes.AddChart(xlColumnStacked, 10, 240, 500).Select
    With ActiveChart
    .SetSourceData Source:=ThisWorkbook.ActiveSheet.Range("A1:I6")
    .SetElement (msoElementDataLabelCenter)
    End With
End Sub

Par contre si je souhaite le mettre dans une autre feuille j'ai un message d'erreur 91 objet ou variable with non défini:

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
    ThisWorkbook.Worksheets("Graph").Shapes.AddChart(xlColumnStacked, 10, 240, 500).Select
    With ActiveChart
    .SetSourceData Source:=ThisWorkbook.Worksheets("indus").Range("A1:I6") ' erreur 91
    .SetElement (msoElementDataLabelCenter)
    End With
End Sub

je ne comprend pas pourquoi....

EDIT: j'ai trouvé la solution , il suffit d'activer la feuille cible avant de faire le code mais pourquoi donc?

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
ThisWorkbook.Worksheets("Graph").Activate
    ThisWorkbook.Worksheets("Graph").Shapes.AddChart(xlColumnStacked, 10, 10, 500).Select
    With ActiveChart
    .SetSourceData Source:=ThisWorkbook.Worksheets("indus").Range("A1:I6")
    .SetElement (msoElementDataLabelCenter)
    End With
End Sub