Mehrere Shapes gleichzeitig auswählen

[o0Julia0o]

Diese Sub funktioniert nicht:
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1", "Rounded Rectangle 29" _
        , "Rounded Rectangle 31", "Rounded Rectangle 32", "Rounded Rectangle 33", _
        "Rounded Rectangle 34", "Rounded Rectangle 40", "Rounded Rectangle 39", _
        "Rounded Rectangle 38", "Rounded Rectangle 37", "Rounded Rectangle 36", _
        "Rounded Rectangle 35", "Rounded Rectangle 41", "Rounded Rectangle 42", _
        "Rounded Rectangle 43", "Rounded Rectangle 44", "Rounded Rectangle 45", _
        "Rounded Rectangle 46", "Rounded Rectangle 52", "Rounded Rectangle 51", _
        "Rounded Rectangle 50", "Rounded Rectangle 49", "Rounded Rectangle 48", _
        "Rounded Rectangle 47")).Select
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.Fill.Visible = msoFalse


Diese schon:
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.Fill.Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 29")).Select
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.Fill.Visible = msoFalse


Also kannn ich die ganzen Rectangles nicht aufzählen und dann alle behandeln mit Line- und Fill Visible?

Beim 1. Beispiel wird Line Visible False gar nicht gesetzt.

[LCohen]

Lies UNION.

[derHoepp]

Moin,

Wie immer: Verzichte auf die Hilfsobjekte und lass das Selektieren sein. Dann brauchst du auch kein ShapeRange Hilfsobjekt:

Code:

With Me.Shapes(Array("Rechteck 1","Rechteck 2","Rechteck 9"))
   .Fill.ForeColor.RGB = RGB(255,6,100)
End With

Viele Grüße
derHöpp

[Nachtrag:] "Funktioniert nicht" ist eine schlechte Fehlerbeschreibung, gewöhne dir bitte an, Fehlernummer und -meldung sowie erwartetes und erreichtes Ergebnis dazuzuschreiben.

[snb]

Lies UNION.

VBEditor, F1

Application.Union Method 
Application.Union Method
Returns the union of two or more ranges

---

Alle Rechtecken:

Code:

Sub M_snb()
    For Each it In Sheet1.Shapes
      If instr(it.Name, "Rect") Then c00 = c00 & "_" & it.Name
    Next
   
    ActiveSheet.Shapes.Range(Split(Mid(c00, 2), "_")).Fill.ForeColor.RGB = RGB(0, 255, 0)
End Sub