OpenOffice.info

Sub set_optimalHeight

    osheet = thisComponent.sheets.Tabelle2
    ocursor = osheet.createCursor
    ocursor.gotoendofusedarea(false)
    orangeaddress = ocursor.rangeaddress
    nEndRow = orangeaddress.EndRow
    
    for i = 0 to nEndRow
        orow = osheet.rows(i)
        orow.optimalheight = true
    next i

End Sub

Hi,
anbei ein einfaches Beispiel mit Makro.
Es wird beim Tabellenereignis der Tabelle1 "Inhalt geändert" ausgeführt.
[code]Sub set_optimalHeight

osheet = thisComponent.sheets.Tabelle2
ocursor = osheet.createCursor
ocursor.gotoendofusedarea(false)
orangeaddress = ocursor.rangeaddress
nEndRow = orangeaddress.EndRow

for i = 0 to nEndRow
orow = osheet.rows(i)
orow.optimalheight = true
next i

End Sub[/code]
Was passiert ist Folgendes:
Wenn Du auf [color=#0040FF]Tabelle1[/color] etwas änderst wird das Makro ausgeführt.
Es schaut in [color=#0040FF]Tabelle2[/color] nach, welche Zellen benutzt werden. [color=#0040FF]gotoendofusedarea(false)[/color]
Dann ermittelt es daraus den Index [color=#0040FF]nEndRow[/color] der untersten benutzten Zeile.
In der Schleife [color=#0040FF]for i = 0 to nEndRow[/color] wird in allen Zeilen, von der ersten bis zur letzten benutzten die Höhe optimal eingestellt.

Viel Erfolg, Gruß R