OpenOffice.info

Sub Main
sheet = thiscomponent.sheets.getbyindex(0)'erstes Tabellenblatt
cell = sheet.getcellbyposition(1,1) 'Zielzelle B2
shape = sheet.DrawPage.getByIndex(0)'das Objekt mit Index 0
shape.Anchor = cell
End Sub

oDrawpage.Add(oShape)

Ich habs endlich rausgefunden.
In [url=http://de.openoffice.info/viewtopic.php?f=18&t=25295#p108378%20]diesem Beitrag[/url] hab ich den Entsprechenden Hinweis zur Lösung gefunden:

[code]Sub Main
sheet = thiscomponent.sheets.getbyindex(0)'erstes Tabellenblatt
cell = sheet.getcellbyposition(1,1) 'Zielzelle B2
shape = sheet.DrawPage.getByIndex(0)'das Objekt mit Index 0
shape.Anchor = cell
End Sub[/code]

Aus MRI wurde mir diese Möglichkeit allerdings nicht ersichtlich.

Desweiteren habe ich herausgefunden, dass man dieses Attribut erst setzen kann, [b]NACHDEM[/b] man mit z.B. [code]oDrawpage.Add(oShape)[/code] Das Textfeld der Drawpage hinzugefügt hat. Warum auch immer...

Hallo,
man kann ja manuell ein Textfeld (com.sun.star.drawing.XShape) erzeugen und diesem dann über "RMT > Verankerung > An der Zelle" einen Anker in einer Zelle zuweisen. Aber wie setze ich diesen Anker per Script?

Das kuriose:
Ich greife also auf com.sun.star.drawing.XShape zu und dort gibt es bei "Anchor" das Attribut "CellAddress" erst, wenn ich die Verankerung manuell hinzugefügt habe. Will ich im Script aber z.B. "oShape.Anchor.CellAddress.Row = 1" setzen, sagt er mir "unzulässiger Wert oder Datentyp". Hab ichs erstmal manuell hinzugefügt kann ich problemlos darauf zugreifen.

Das ganze hab ich in OOo 3.1.1 und LO 3.5.3 in Calc probiert.

Gruß,