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

Hallo Regina,

erst mal herzlichen Dank für Deine Unterstützung.

Dein Makro bestätigt meine vorher geäußerte Vermutung:

Anstatt einem Parameter ("LO 5.2.7.2 (x64)" - nur die Höhe bzw. Breite, 
Zellenauswahl muss man vorher machen) muss man jetzt zwei Parameter ("LO 
5.3.3.2 (x64)" - Auswahl der Zelle und Angabe der Höhe bzw. Breite) 
übergeben.

"RowHeight" und "ColumnWidth" werden in Hundertstel-Millimeter 
angegeben, zumindest unter "LO 5.2.7.2 (x64)", wird unter "LO 5.3.3.2 
(x64)" sicherlich auch so sein.

Bei Deinem Makro müssten sich also folgende Werte in der Tabelle ergeben 
haben:

RowHeight = 2 'cm (siehe unten)
VP(0).Name = "Row"
VP(0).Value = 3 ' Da die Zählung bei 0 beginnt, sollte es in der Tabelle 
die Zeile "4" gewesen sein. Richtig ?
VP(1).Name = "Height"
VP(1).Value = RowHeight * 567 'magic number

RowHeight * 567 = 2 * 567 = 1134 [Hundertstel-Millimeter] = 11,34 [mm] = 
1,13 [cm] - War die neue Zeilenhöhe 1,13 cm ?

ColumnWidth = 3 'cm (siehe unten)
VP(0).Name = "Column"
VP(0).Value = 2 ' Da die Zählung bei 0 beginnt, sollte es in der Tabelle 
die Spalte "C" gewesen sein. Richtig ?
VP(1).Name = "Width"
VP(1).Value = ColumnWidth * 567

ColumnWidth * 567 = 3 * 567 = 1701 [[Hundertstel-Millimeter] = 17,01 
[mm] = 1,70 [cm] - War die neue Spaltenbreite 1,70 cm ?

Warum Du "567 durch Probieren" gefunden hast (und wozu) kann nicht 
nachvollziehen. Ich nehme immer (den Faktor) 100, dann sind die Angaben 
für "RowHeight" und "ColumnWidth" als Angaben in mm zu verstehen.

Warum Du "Dim VP(1) as New com.sun.star.beans.PropertyValue" formuliert 
hast und nicht "Dim VP(0) as New com.sun.star.beans.PropertyValue" kann 
ich nicht nachvollziehen, aber vielleicht war es auch nur ein Vertipper 
Deinerseits.

Ich werde jetzt nochmals ausführlich testen und dann noch einen 
"Abschluss-Bericht" absetzen, damit andere User die Änderung leicht 
nachvollziehen können.

Gruß und Dank,
Hans-Werner

------ Originalnachricht ------
Von: "Regina Henschel" <rb.henschel@t-online.de>
An: users@de.libreoffice.org
Gesendet: 12.05.2017 14:27:11
Betreff: 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


--
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