Re: [de-users] LO 5.3.3.2 - Basic Makro - unoCommand - RowHeight und ColumnWidth - Fehlfunktion

Hallo Hans-Werner,

das folgende Makro funktioniert bei mir, und zwar jeweils auf dem 
aktiven Tabellenblatt.
Die Zahl 567 habe ich durch Probieren gefunden. Ich habe keine Ahnung, 
mit welcher Einheit dort gearbeitet wird.

Mit freundlichem Gruß
Regina


sub Cellsize

Dim oC as Object : oC = ThisComponent.CurrentController
Dim oF as Object : oF = oC.Frame
Dim oD as Object : oD = 
createUnoService("com.sun.star.frame.DispatchHelper")

Dim RowHeight as Long
Dim ColumnWidth as Long
Dim VP(1) as New com.sun.star.beans.PropertyValue

RowHeight = 2 'cm
VP(0).Name = "Row"
VP(0).Value = 3
VP(1).Name = "Height"
VP(1).Value = RowHeight * 567 'magic number
oD.executeDispatch(oF,".uno:RowHeight","",0,VP())

ColumnWidth = 3 'cm
VP(0).Name = "Column"
VP(0).Value = 2
VP(1).Name = "Width"
VP(1).Value = ColumnWidth * 567
oD.executeDispatch(oF,".uno:ColumnWidth","",0,VP())

End Sub

--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert