Chartobjects / Shapes

Forumthread: Chartobjects / Shapes
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Chartobjects / Shapes

15.09.2004 18:51:04

Holli

Hallo,
bei der Erstellung eines Diagramms per VBA möchte ich gerne auch die Größe und die Positionierung des Diagramms festlegen. Dabei wird das Diagramm jedoch mit ActiveSheets.Shapes(index)... angesprochen.
Wie kann ich den Index rausbekommen, wenn es nicht das einzige Diagramm ist.
Mit variable = ActiveChart.Index funktioniert es nicht.
Danke für jede Hilfe

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Chartobjects / Shapes

15.09.2004 20:47:33

Alf

AW: Chartobjects / Shapes

15.09.2004 20:47:33

Alf

Hallo
Der Zugriff geschieht über die Klasse "ChartObject". Mit folgender Routine findest du heraus, welche ChartObjects auf dem aktiven Tabellenblatt vorhanden sind:


Private Sub Print_ChartObjects()
Dim CHO As ChartObject
Dim WKS As Worksheet
Set WKS = ActiveSheet
For Each CHO In WKS.ChartObjects
Debug.Print CHO.Index, CHO.Name
Next
End Sub

ChartObject hat auch die Eigenschaften Top, Left etc...
Gruss Alf

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!