Excel vba: Alle Shapes außer ein bestimmtes Auswählen

[Excelmania]

Guten Morgen,

ich habe auf einem Tabellenblatt mehrere Shapes. Der Benutzer kann auch noch beliebig viele ergänzen.

Über eine Schaltfläche sollen alles Shapes bis auf eine Schaltfläche, die eine Useform öffnet, markiert werden.

Ich wollte es mit einer For-Each-Schleife lösen, doch leider wird immer nur das zuletzt eingefügte Shape markiert.

For Each shp In ActiveSheet.Shapes
    If Not shp.Name = "PM_CB_Menü" Then
    shp.Select
    End If
Next

Wie könnte ich das lösen?

 

[DeepBlue550]

Da wird wohl jedes Shape-Element beim Auswählen des nächsten wieder abgewählt. Versuchs mal mit dem "(False)" nach dem Select

https://docs.microsoft.com/en-us/office/vba/api/excel.shape.select

 

[Excelmania]

Hallo. Danke für den Tipp. Die Methode kenne ich nicht. Wie genau funktioniert die?

 

[Sun_set_1]

Select heißt erstmal nur eine Auswahl anwählen.

Ich würde grob so vorgehen, dass ich die Box/Shape welche exkludiert werden soll, klar benenne (geht im VBA Editor im Shape Menü unten links. Da kannst den Namen editieren. Beispielsweise XYZ für den Shape der nicht markiert werden soll.

Dann kannst eine Auswahl erstellen. Diese Auswahl heißt unter Vba Object-Range. In dieser Object-Range müssen nun alle Shapes, außer die eine. Dann musst alle Boxen/Shapes markieren die eben nicht deinem Namen entsprechen abwählen. Das markierte dann der ObjectRange hinzufügen. Ggf. geht auch ShapeRange

Der entscheidende Befehl zum abwählen:

Dim objRange As Object
Set objRange = ActiveSheet.Shapes.Range(arShapes)

For Each objShape In arShapes
If Left(objShape.Name, 3) <> "XYZ" Then
[...]

irgendwie so, von der Logik her. Ansonsten ist Google aber auch gerade zu voll mit dem Thema, wie man Shape-Ranges, Gruppen usw. usf. erstellt.

 

[Janush]

Die seeeehhhhr einfache Antwort wurde doch schon von DeepBlue gepostet :-) sogar mit Link wo die Beschreibung drin steht.

 

[Excelmania]

Die Erläuterung von MS sagt mit nichts. Wo soll ich das False setzen?

Ergänzung (21. April 2021)

Folgendes funktioniert nicht:

ActiveSheet.Shapes.SelectAll
   expression.Select("PM_CB_Menü") = False

Ergänzung (21. April 2021)

Dim shp As Shape
    
For Each shp In ActiveSheet.Shapes
    If shp.Name <> "PM_CB_Menü" Then shp.Select
Next shp

 

[Janush]

Ok ich helf dir kurz, du scheinst mit VBA noch nicht so viel gemacht zu haben.

Dim shp As Shape

For Each shp In ActiveSheet.Shapes

    If shp.Name <> "PM_CB_Menü" Then shp.Select False

Next shp