Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Chartobjects / Shapes

Betrifft: Chartobjects / Shapes von: Holli
Geschrieben am: 15.09.2004 16:51:04

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

  


Betrifft: AW: Chartobjects / Shapes von: Alf
Geschrieben am: 15.09.2004 18:47:33

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


 

Beiträge aus den Excel-Beispielen zum Thema "Chartobjects / Shapes "

Shapes in Abhängigkeit von Zellwerten färben