Du hast damit mein Problem gelöst.
Ich ändere meine Applikation entsprechend um.
Vielen Dank und Frohe Ostern.
Alex
P.S.
Da ein Shape einer Drawpage nicht immer die Eigenschaft "Control" besitzt, habe ich das noch abfragen müssen, ansonsten klappt es super.
Nur noch eine Methode für alle Tabellen, weniger redundant und weniger fehlerträchtig. Da Dein Code so schön ist, habe ich ihn noch einmal mit der kleinen Änderung zitiert. Dann findet die globale Websuche das besser .
Code: Alles auswählen
nCount = oDrawpage.count - 1
redim preserve aControls(2,k)
for k = 1 to nCount
oShape = oDrawpage(k)
'Shape muss vom Typ "ControlShape" sein, um die Eigenschaft "Control" zu besitzen
if oShape.ShapeType = "com.sun.star.drawing.ControlShape" then
oControl = oShape.Control
if oControl.Servicename = "stardiv.one.form.component.CheckBox" then 'es ist eine Checkbox
aControls(0,k) = true'Checkbox
aControls(1,k) = oShape.Anchor.Texttable.Name
aControls(2,k) = oShape.Anchor.Cell.Cellname
else
aControls(0,k) = false 'keine Checkbox
endif
else
aControls(0,k) = false 'keine Checkbox
endif
next k