Elemente ausserhalb Kurve per VBA löschen

[Sfassbender]

Hallo zusammen,

ich habe auf einer Seite eine Menge kleiner Shapes. (lauter gleich große Ellipsen) Darüber lege ich eine geschlossene Kurve. Wie kann man das per VBA lösen, dass alle Elemente, die nicht innerhalb der selektierten Kontur liegen (wenn möglich auch die "angeschnittenen"), gelöscht werden?

Für Eure Hilfe wäre ich sehr dankbar, da ich im Moment noch alle Elemente von Hand löschen muss.

Liebe Grüsse,

Stefan