Hallo zusammen,
bisher habe ich mich wenig mit Draw (-Programmierung) beschäftigt.
Kann mir jemand sagen, wie ich von LO Basic auf die Koordinaten der einzelnen Punkte eines Polygons, das zuvor mit der Maus selektiert wurde, zugreifen kann?
Danke
Hast du schon Xray? Dort siehst du nicht nur die Properties, sondern auch die Methoden und Services.
Hast du schon das Handbuch von Andrew Pitonyak? Es gibt noch weitere Literatur, einfach mal suchen. Du kannst auch die von OpenOffice.org noch benutzen, lediglich die Erweiterungen für VBA fehlen dort.
Um zu sehen, was ein Objekt alles an Properties bietet, kannst du das Watch-Fenster benutzen. Ich benutze dazu einen Breakpoint auf die Zeile “dummy = 1” in dem unten angegebenen Makro. Diese Rumprobier-Makros lassen sich auch leicht erweitern, wenn du die Handhabung von einzelnen Properties ausprobieren willst. Properties mit Nummerierungen werden zu arrays in Basic. Du kannst sie erstmal einer Variablen vom Typ ‘variant’ zuweisen und dann sehen, was du erhältst.
sub examineShape_inDraw
dim oDocument as variant: oDocument = ThisComponent
dim oShape as variant: getSelectedShape_inDraw(oShape)
dim dummy as integer
dummy = 1
end sub
sub getSelectedShape_inDraw(oShape as variant)
rem returns a single, selected shape, might be empty
dim oDocument as variant: oDocument = ThisComponent
dim oCurrentController as variant: oCurrentController = oDocument.getCurrentController()
dim oShapeCollection as variant: oShapeCollection = oCurrentController.Selection
if isempty(oShapeCollection) then exit sub
if oShapeCollection.Count <> 1 then exit sub
oShape = oShapeCollection.getByIndex(0)
end sub