Diagrammnamen unklar
Benni
kann mir jemand von Euch helfen? Hab folgendes Problem:
Auf einem Sheet mit dem Namen "Zusammenfassung" befinden sich viele Diagramme die ich gerne zugeornet an eine definierte Stelle Positionieren möchte. Diese Diagramme haben ebenso auch eine definierte Größe.
Um die Diagramme definiert zu positionieren benötige ich für die VBA-Programmierung den Diagrammnamen. Wie finde ich diesen für die einzelnen Diagramme heraus?
VBA Position und Größe:
Sub Position_Groesse()
ActiveSheet.ChartObjects("Diagramm 5").Activate
With ActiveSheet.Shapes("Diagramm 5")
.Left = Range("C2").Left
.Top = Range("C2").Top
End With
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveSheet.ChartObjects("Diagramm 5").Height = 161.5748031496
ActiveSheet.ChartObjects("Diagramm 5").Width = 283.4645669291
ActiveSheet.ChartObjects("Diagramm 7").Activate
With ActiveSheet.Shapes("Diagramm 7")
.Left = Range("C3").Left
.Top = Range("C3").Top
End With
ActiveSheet.ChartObjects("Diagramm 7").Activate
ActiveSheet.ChartObjects("Diagramm 7").Height = 161.5748031496
ActiveSheet.ChartObjects("Diagramm 7").Width = 283.4645669291
End Sub
Grüße
Benni