es gelingt mir nicht die Schattenposition einer Absatzumrandung (Writer) auf NONE zu setzen.
Ich verwende folgenden Code:
Code: Alles auswählen
sub main
oDoc = ThisComponent
oSelections = oDoc.getCurrentSelection()
oSel = oSelections.getByIndex(0)
oCursor = oDoc.Text.createTextCursorByRange(oSel)
Dim ps As Object
ps = oCursor.ParaShadowFormat
ps.Location = 0 'com.sun.star.table.ShadowLocation.NONE
ps.ShadowWidth = 200
ps.Color = RGB(255,0,0)
oCursor.ParaShadowFormat = ps
End Sub
Code: Alles auswählen
ps.Location = 0 'com.sun.star.table.ShadowLocation.NONE
beobachtet in AOO 4.1.6 und LO 6.0.3 (jeweils Windows)
Weiß jemand etwas dazu?
Gruß
Stephan