Excel VBA die letzten drei eingefügten Shapes auswählen

[Excelmania]

Guten Morgen.

Ich möchte gerne die letzten drei shapes auswählen. Wie ich sie einzeln auswählen kann habe ich erstellen können. Wie bekommen ich sie jedoch gemeinsam markeirt?

Sub ShapesAnsprechenLetztes()
    Dim objShape As Shape
    With ActiveSheet
      Set objShape = .Shapes(.Shapes.Count)
    End With
    objShape.Select
End Sub

Sub ShapesAnsprechenVorletztes()
    Dim objShape As Shape
    With ActiveSheet
      Set objShape = .Shapes(.Shapes.Count - 1)
    End With
    objShape.Select
End Sub

Sub ShapesAnsprechenVorVorletztes()
    Dim objShape As Shape
    With ActiveSheet
      Set objShape = .Shapes(.Shapes.Count - 1)
    End With
    objShape.Select
End Sub

 

[Bonanca]

Buchstäblich der erste Treffer bei Google:
https://www.mrexcel.com/board/threads/how-to-select-multiple-shapes-at-once-with-vba.1137721/

Entweder mittels eines Arrays oder dem Zusatz "Replace:=False"

Edit:
Bei deinem VorVorletztem steht hoffentlich "-2" im Skript, nicht -1.

 

[Excelmania]

Moin.

Ja steht und mit Array habe ich es probiert. es funktioniert jedoch leider nicht.

    ActiveSheet.Shapes.Range(Array(ActiveSheet.Shapes(.Shapes.Count), ActiveSheet.Shapes(.Shapes.Count - 1), ActiveSheet.Shapes(.Shapes.Count - 2))).Select

 

[Bonanca]

Wenn man das Beispiel oder auch die Doku liest kann man feststellen, dass entweder Zahlen oder Namen ins Array übergeben werden sollen.

Du tust weder noch.

Versuch es mal einfach nur mit

.Shapes.Count , .Shapes.Count - 1 , .Shapes.Count - 2

im array, oder mit

ActiveSheet.Shapes(.Shapes.Count).Name ,  ActiveSheet.Shapes(.Shapes.Count - 1).Name , ActiveSheet.Shapes(.Shapes.Count - 2).Name

 

[Excelmania]

Moin.

beides gerade ausprobiert. Es kommt weiterhin unzulässiger Name.

 

[cumulonimbus8]

Ich würde auf nacheinander und "Replace:=False" setzen.

Und - ich traue der Referenzierung nicht… Oder mehr traue ich ihr alles zu…
ActiveSheet.Shapes(.Shapes.Count).Name → ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name


Persönlich ist mir die Frage zum Thread selbst »die letzten drei eingefügten« zu kitzlig.
Die Zählung mit .Cound und jeweils -1, -2 scheint zwar schlüssig, aber erwischen wir, aus welchen Gründen auch immer die richtigen 3 Letzten? Und macht das Sinn so zu zählen statt, wohl oder übel, IDs, Namen, zu vergeben und stur darauf zu referenzieren?

CN8

 

[Janush]

Und hast du es hinbekommen? Es fehlt bei dir irgendwie immer die finale Rückmeldung. Mich würde ja sowieso mal interessieren, was du da für ein Tool zusammen geklickt hast :-)

Falls es widererwarten immer noch nicht geht, probier mal das aus. Ich habe das gerade mal getestet und läuft bei mir. Man muss natürlich schauen, dass man auch genug Shapes zum auswählen hat, aber das brauche ich ja eigentlich nicht zu erwähnen.

Was mir auch noch einfällt ist, dass ziemlich viel Zeug unter Shapes fällt. Shapes, Buttons, Diagramme, usw.. Vielleicht kommt dein Fehler auch daher.

So, hier der code:

Sub MarkiereDieLetzten3Shapes()

    With Sheet1 'Wo auch immer die shapes drauf liegen
    
        With .Shapes
            
            .Range(.Count - 0).Select
            .Range(.Count - 1).Select False
            .Range(.Count - 2).Select False
        
        End With
    
    
    End With

End Sub

 

[Excelmania]

Guten Abend.

Sorry für die späte Rückmeldung. Perfekt vielen Dank.