Zellenhöhe an Text anpassen

[Wolfgang]

Danke schon mal an dieser Stelle für eure Mühen!

Wenn ich das Makro sowieso fest an ein Ereignis (ein Auswahlfeld) binden will, benötige ich die Klauseln (if...) nicht, denn die Anpassung soll ja auf alle Fälle nach einer Änderung am Dokument geschehen.

Was quasi übrigbleiben muss, sollten nach meinem Verständnis diese beiden Zeilen sein:

thiscomponent.calculateall
thiscomponent.Rows.OptimalHeight = true

Dabei bekomme ich aber die Fehlermeldung

Eigenschaften oder Methode nicht gefunden: Rows

Also so einfach, wie ich dachte, geht es dann doch nicht...

[F3K Total]

Hallo wolfgang,
ich habe dir ein Beispieldokument geschickt.
Da siehst du, dass es funktioniert und wie das Makro an das Tabellenereigns gebunden ist.
R

[F3K Total]

Hallo Wolfgang,

Code: Alles auswählen

thiscomponent.Rows.OptimalHeight = true

kann nicht funktionieren, da die ROWS sich immer auf einem Tabellenblatt befinden.
Ich habe dir eine funktionierende Beispieldatei geschickt, wenn du allerdings die Anpassung immer, bei jeder Änderung auf jedem Blatt haben möchtest, geht dieses Makro:

Code: Alles auswählen

Sub automatic_row_height
    oSheet = thisComponent.currentController.activeSheet
    thiscomponent.lockControllers
    thiscomponent.calculateall
    oSheet.Rows.OptimalHeight = true
    thiscomponent.unlockControllers
End Sub

R

[Wolfgang]

Die Höhenanpassung soll nur auf dem aktuellen Tabellenblatt passieren, und die dafür nötigen zwei oder drei Befehlszeilen sollen Teil eines weiteren Makros werden, der immer ausgeführt wird, wenn eine Änderung auf dem Blatt vorgenommen wird.

Wohin hast du die Datei denn gesendet?

[F3K Total]

Hier: vor 1 1/2 Stunden
viewtopic.php?f=6&t=27454#p73472
R

[Wolfgang]

Danke, funktioniert!

Du kennst dich anscheinend gut mit Makros aus. Darf ich dich bei dieser[1] Angelegenheit vielleicht auch um Hilfe bitten?

[1] viewtopic.php?p=73435#p73435