Tabelle per Makro erstellen: Zeilenhöhe und Spaltenbreite

[TJF]

Hallo Nitram,

das von rudi02 gesagte funktioniert bei mir nicht. Es öffnet sich nur das Fenster, in das der Wert eingegeben wird. Hast Du es hinbekommen?

Code: Alles auswählen

 
dispatcher.executeDispatch(document, ".uno:SetRowHeight", "", 0, Array()) 

Hier fehlt ja "nur" der Wert für die Zeilenhöhe...

Dank und Gruß
Thomas

[TJF]

Hallo Uwe,

funktioniert in Calc perfekt. Danke!

Hast Du sowas noch für eine Writer-Tabelle in petto?

Dank und Gruß
Thomas

[TJF]

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

[TJF]

Hallo,

ist zumindest für mich geklärt: viewtopic.php?f=18&t=31264#p125981

Viele Grüße
Thomas