von TJF » Mi, 23.12.2009 17:13
Hallo,
ich dachte, das müßte dann in Writer analog dazu so gehen:
Code: Alles auswählen
sub test
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SetRowHeight"
args1(0).Value = 500
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SetRowHeight", "", 0, args1())
end sub
Tut es aber nicht... Hat jemand eine Idee?
Dank und Gruß
Thomas
Hallo,
ich dachte, das müßte dann in Writer analog dazu so gehen:
[code]
sub test
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SetRowHeight"
args1(0).Value = 500
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SetRowHeight", "", 0, args1())
end sub
[/code]
Tut es aber nicht... Hat jemand eine Idee?
Dank und Gruß
Thomas