ParaShadowFormat
Verfasst: Di, 09.04.2019 11:22
Hallo,
es gelingt mir nicht die Schattenposition einer Absatzumrandung (Writer) auf NONE zu setzen.
Ich verwende folgenden Code:
in Zeile:
funktionieren andere Werte (1,2,3,4 bzw. TOP_LEFT, TOP_RIGHT, BOTTOM_LEFT, BOTTOM_RIGHT) ohne Probleme.
beobachtet in AOO 4.1.6 und LO 6.0.3 (jeweils Windows)
Weiß jemand etwas dazu?
Gruß
Stephan
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