Alle Shapes eines Gruppierung ändern

Bild

Betrifft: Alle Shapes eines Gruppierung ändern
von: Frank
Geschrieben am: 28.04.2015 15:10:08

Hallo zusammen,
in einem Excelsheet habe ich mehrere Shapes (Rechtecke), die ich gruppiert habe (Name: Gruppierung2).
Wie kann ich in einer For each-Schleife alle Shapes der besagten Gruppierung nacheinander ansprechen, um eine Änderung an jeder einzelnen Shape vorzunehmen?
Nach dem Motto...
For each Rechteck in Gruppierung2
Next Rechteck
Vielen Dank,
Frank

Bild

Betrifft: AW: Alle Shapes eines Gruppierung ändern
von: Nepumuk
Geschrieben am: 28.04.2015 15:32:45
Hallo,
ein Beispiel:

Public Sub Beispiel()
    Dim objShape As Shape
    For Each objShape In Tabelle1.Shapes("Gruppe_1").GroupItems
        objShape.Fill.ForeColor.RGB = vbRed
    Next
End Sub

Gruß
Nepumuk

Bild

Betrifft: Danke, Nepumuk. Funktioniert! [n/t]
von: Frank
Geschrieben am: 28.04.2015 15:55:03
...

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Alle Shapes eines Gruppierung ändern"