Automatischer Zeilenumbruch

[toni]

Hallo zusammen,

Mit

Code: Alles auswählen

oMerge = .getCellRangeByName("N" & DruckZeile & ":BD" & DruckZeile)
oMerge.merge(True)
With .getCellRangeByName("N" & DruckZeile) 
       .String =oSheet.getCellRangeByName("E"&WGZeile).String                              
       .CharFontName = "Arial"
       .CharHeight   = 8
       .VertJustify  = com.sun.star.table.CellVertJustify.TOP
End With

verbinde ich Zellen, fülle und formatiere sie.
Da der Inhalt nicht immer in eine Zeile passt, möchte ich einen automatischen Zeilenumbruch in der verbundenen Zelle erzwingen.
Wie bekomme ich das hin?

Gruss

Thomas

[toni]

Hallo,

habe jetzt folgendes gefunden:

Code: Alles auswählen

.IsTextWrapped = True  

wenn ich mir jetzt die Eigenschaften der Zelle anschaue ist der Haken für "automatischer Zeilenumbruch" zwar gesetzt, einen Zeilenumbruch gibt es aber nicht. Am Ende der Zelle befindet sich ein rotes Dreieck...

Kann mir da jemand weiter helfen?

Gruss

Thomas

[toni]

Ich bin es noch mal

Bin jetzt doch selber drauf gekommen:
Es muss nur noch die optimale Höhe eingestellt werden:

Code: Alles auswählen

.rows(DruckZeile - 1).OptimalHeight = True  

Vielleicht kanns ja mal jemand gebrauchen...


Bis dahin

Thomas