VBA - Gruppierte Shapes auflösen
Christian
ich suche eine Lösung per VBA für folgendes Problem:
auf einem Tabellenblatt sind verschiedene Shapes (zB. Recktecke aus Symbolleiste "Zeichnen").
Diese Shapes sind gruppiert und zwar in unterschiedlicher Tiefe.
Bsp:
Shape1 ist mit Shape2 gruppiert.
Shape3 ist mit der Gruppe aus Shape1 und Shape2 gruppiert.
Shape4 ist mit Shape5 gruppiert.
Shape6 ist mit der Gruppe aus Shape4 und Shape5 gruppiert.
Shape7 ist mit der Gruppe aus Shape4 und Shape5 und Shape6 gruppiert.
Shape8 ist mit Shape9 gruppiert.
Die Gruppe aus 8 und 9 ist mit der Gruppe aus 4, 5, 6 und 7 gruppiert.
...etc.
Ziel ist es, alle Gruppierungen aufzulösen.
Ich denke, das müsste irgendwie mit 'ner Rekursion möglich sein, aber dafür reichen meine VBA-Kenntnisse nicht.
Könnt ihr helfen?
vielen Dank vorab
Christian