[gelöst] Zeilenhöhe als Function auslesen.

[balu]

Hallo Leute,

verzeiht wenn ICH euch mit einer lapalie belästige, aber ich kriegs nicht auf die Reihe die Zeilenhöhe als Function auszulesen. Na ja, stimmt nicht ganz. Ich schaffe es wohl die 1. Zeilenhöhe auszulesen, aber die Parameteranpassung damit ich auch die anderen Zeilenhöhen bekomme, ist mir ein schleierhaftes Rätsel.
Mein aktueller Code für die 1. Zeile:

Code: Alles auswählen

Function ZEILEH '(ZEILE)
   myDoc = thisComponent
   mySheet = myDoc.Sheets(0)
   ZEILEH = mysheet.Rows(0).height
End Function

Versuche mit

Code: Alles auswählen

oZelle=oDoc.getCurrentSelection()

   ZEILEH = mysheet.Rows(oZelle).height

brachten bisher keinen Erfolg sondern nur ne Fehlermeldung. "Objektvariable nicht belegt".

Aufrufen tue ich momentan mit

Code: Alles auswählen

=ZEILEH(ZEILE(A1))

Aktualisieren tue ich natürlich mit "Strg" + "Shift" + "F9"

Wie muss also der Code richtig aussehen, damit die Function mir in jeder x-beliebigen Zeile die Zeilenhöhe ausgibt?

Ich bedanke mich schon mal für eure Bemühungen .


Gruß
balu


p.s.
Ja, die Forensuche hatte ich bemüht, aber schlußendlich hatte ich nur noch Chinesisch gelesen .

[komma4]

Aufruf mit der Formel

Code: Alles auswählen

=ZEILENH(TABELLE(); ZEILE())

(Du solltest die aktuelle Tabelle mitgeben, damit die Formel "überall" funktioniert)


Der Funktionscode sieht dann so aus:

Code: Alles auswählen

Function ZEILENH( aktTabelle as INTEGER, aktZeile as LONG )
ZEILENH = _
 ThisComponent.Sheets().getByIndex( aktTabelle - 1 ).Rows().getByIndex( aktZeile - 1 ).Height
End FUNCTION

Das war's?

[balu]

Moin Winfried,

Du solltest die aktuelle Tabelle mitgeben, damit die Formel "überall" funktioniert

Brauche ich eigentlich nicht da mir das 1. Blatt ausreichen würde, aber dennoch lass ich es so.

Das war's?

Ja. Das wars schon. Mehr wollte ich nicht, und ich bin Happy. Danke dir recht Herzlich .


Gruß
balu

[komma4]

Brauche ich eigentlich nicht da mir das 1. Blatt ausreichen würde, aber dennoch lass ich es so.

Brauchst Du im Moment vielleicht nicht....


Solche Funktionen gehören in die STANDARD-Bilbliothek der OOo-Installation (nicht in einer Calc-Datei speichern) - dann stehen sie allen Tabellen zur Verfügung.
Und durch die Mitgabe des Tabellenblatts funktioniert das Ding dann auch auf anderen Blättern - wenn mal benötigt.


Viel Spass mit OOo noch

[balu]

Moin Winfried,

ah ja, jetzt versteh ich was Du meintest. Da hast Du natürlich auch recht. Danke für die zusätzliche Info.


Wünsch dir noch nen schönen Tag .
balu