OpenOffice.info

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

Nach drei Stunden suchen habe ich es selbst gefunden:

[code]grafik.anchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
grafik.horiOrientPosition = 10000
grafik.vertOrientPosition = 100
[/code]

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.

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

Hallo,

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

[code]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

[/code]

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

Was ist da los?

Stefan