Gruppierte Objekte bewegen
22.09.2019 21:12:38
deniz
Hallo zusammen,
ich habe ein Objekt aus mehreren Formen zusammengestellt und gruppiert.
(ca. 100 Striche, 50 Kreise usw.)
Das gesamte Objekt lässt sich über mehrere Drehfelder oder andere Buttons bewegen.
Nun zum Problem, ich würde gerne einzelne Teile aus der Gruppierung bewegen ohne die Gruppierung aufzulösen.
Ist das irgendwie möglich?
Hier ein stark vereinfachtes Beispiel:
Private Sub SpinButton1_Change()
Sheet1.Shapes("SW").Rotation = SpinButton1.Value
End Sub
Die Gruppierte Grafik "SW" lässt sich über den SpimButton1 jeweils nach links oder rechts drehen.
Die Grafik "SW" besteht aus einem Kreis Namens "S" und einem Strich Namens "W" der sich im inneren des Kreises befindet.
Wie kann ich nur den Strich bewegen ohne die Gruppierung aufzuheben?
Ich hoffe Ihr habt eine Idee.
MFG