mit folgendem Code greife ich auf das aktuell selektierte Zeichnungsobjekt zu:
Code: Alles auswählen
Dim objDoc As Object
Dim objSel As Object
Dim objSelShape As Object
objDoc = ThisComponent
objSel = objDoc.CurrentSelection
objSelShape = objSel.getByIndex(0)
Hat jemand eine Idee?
Danke