Hallo zusammen,

in einem meiner Makros verwende ich

ActiveWindow.Selection.ShapeRange(ActiveWindow.Selection.ShapeRange.Count).Delete

um das zuletzt markierte Element zu löschen. Ich möchte danach mit den restlichen markierten Elementen weiterarbeiten.

Jetzt habe ich festgestellt, dass in Powerpoint 2010 und 2013 lediglich wie gewünscht das letzte Element gelöscht wird, die anderen Elemente jedoch ausgewählt bleiben (ich kann per Selection.ShapeRange auf sie zugreifen). In Powerpoint 365 wird zwar das letzte Element korrekt gelöscht, jedoch verliere ich auch die Auswahl der restlichen Elemente. Es ist einfach nichts mehr ausgewählt nach dem Delete-Befehl.

Habt ihr das Problem auch?

Habt ihr ne Idee, wie ich das Problem umgehen kann? Wie kann ich die anderen Elemente der Selection speichern, damit ich, nachdem sie nicht mehr ausgewählt sind, wieder auf sie zugreifen kann?

Grüße

 Stephan