Seite 1 von 1

Automatischer Zeilenumbruch

Verfasst: Mo, 12.03.2007 14:24
von 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

Verfasst: Mo, 12.03.2007 14:59
von 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

Verfasst: Mo, 12.03.2007 15:14
von 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