Calc: Anzahl Zeilen in einer Zelle ermitteln

[grauac]

Hallo an das Forum!

Ich poste meine Frage aus dem Calc-Forum nochmal hier im Basic-Forum, vielleicht
ist sie hier besser aufgehoben:
Bitte keine Crossposting im Forum. Notfalls kann man ein Thema verschieben lassen.
Ich habe das Duplikat gelöscht und den Titel hier ergänzt.—lorbass, Mod

Ich erfasse Texte in einer Zelle, die auf automatischen Umbruch formatiert ist.
Ist der Text dann länger als die Zellenbreite, wird umbrochen. Benutze ich eine
kleinere Schrift, passt mehr Text in eine "Zeile", es wird später umbrochen.

Was ist nun wissen will:
kann ich irgendwie ermitteln, in wieviele "Zeilen" der Text in einer Zelle
aktuell umbrochen wird?
Einfach Zeichen zählen reicht nicht, denn Font, Schriftgröße und Zeichenbreite
spielen da mit ...
Alternativ würde mir helfen, den "Indikator" am rechten Zellenrand zu erkennen,
d.h. die Situation in der OO/LO das Zeichen ausgibt, das anzeigt dass es mehr
Text gibt als in die Anzeige passt.

Bitte für jede Idee dankbar!
Matthias

[F3K Total]

Hallo Matthias,
ich weiss nicht, ob es Dir hilft, aber man kann die Funktion "optimale Höhe" per Makro setzen.
Beispiel optimale Höhe Zeile 1

Code: Alles auswählen

Sub S_Set_Optimal_Height_Row1
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    osheet.rows(0).OptimalHeight = true' wobei .rows(0) für Zeile 1, .rows(1) für Zeile 2 usw. steht
End Sub

Wenn man sie gesetzt hat, wandert die Zellenhöhe, bei Eingabe neuen Textes oder beim Löschen, mit.
D.h. eigentlich brauchst Du die optimale Höhe nur einmal setzen.
Gruß R

[grauac]

Hallo F3K Total,

danke für deinen Hinweis, die optimale Höhe ist mir bekannt.
Aber mir geht es genau um das Gegenteil: Die Zeilen(=Zellen)-Höhe soll gleich bleiben,
nur dann, wenn der Text nicht mehr reinpasst, möchte ich z.B. die Schrift
schrittweise verkleinern. Dafür suche ich die Erkennung im Basic-Makro.

grüße Matthias