Grafik in Writer verschieben

[delta9]

Hallo,

ich will eine Grafik in einer Writer-Datei-Verschieben, bkokmme aber die Fehlermeldung " Position cannot be changed with this mehtod".

Code: Alles auswählen

grafiken = BerichtDatei.getGraphicObjects
GrafikNummer =  grafiken.count -1 
grafik = grafiken.getbyIndex(GrafikNummer)
Dim aPosition As New com.sun.star.awt.Point
aPosition.X = 2540
aPosition.Y = 2540
grafik.PositionProtected =false   ' Funktioniert
msgbox grafik.getname            ' Funktioniert
' grafik.dispose                        ' rauskommentiert, würde aber auch funktionieren
grafik.setposition(aPosition)      ' funktoniert nicht
grafik.getposition(aPosition)      ' funktoniert auch nicht

getposition und setposition werden zwar mit xray als Methode angezeigt, können aber auch in xray nicht ausgelesen werden.

Was ist da los?

Stefan

[delta9]

Nach drei Stunden suchen habe ich es selbst gefunden:

Code: Alles auswählen

grafik.anchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
grafik.horiOrientPosition = 10000
grafik.vertOrientPosition = 100

Die Grafik hat also keine "Position" sondern nur eine "Orientierung", das kann man auch sehen, wenn man sich im writer das Kontextrmenü ansieht. Formen wie Rechtecke usw. haben eine Position, nicht aber Grafiken.