silbentrennung in zelle

[kannenklaus]

hallo ng

mit dem folg. code formatiere ich eine über den datenpilot erstellt tabelle. nun möchte ich, dass die spalte 0 nicht nur umgebrochen, sondern der text auch getrennt wird. der dispatcher-code klappt nicht.

Sub DatenAktualisieren
'pilots = thisComponent.Sheets().getByName("Tabelle1").getDataPilotTables()
Dim oSheet as Object
Dim pilots as Object
Dim oSpalte as Object
Dim oZeile as Object

oSheet = thisComponent.Sheets(0)
pilots = oSheet.getDataPilotTables()
pilots(0).refresh() ' Nummer 0 ist der erste, bei mehreren anpassen

'Pivottabelle formatieren


oSheet = thisComponent.sheets(0)
oSpalte = oSheet.Columns(0)
oSpalte.Width = 4000
oSpalte.CharUnderline=com.sun.star.awt.FontUnderline.SINGLE
oSpalte.ParaLeftMargin = 200 'linker Einzung von 0,2 cm
oSpalte.isTextWrapped = true 'Umbruch in der Zelle
'oSpalte.isAlignmentHyphenation = 'Befehl ist nicht richtigfreue mich auf eine antwort

[Stephan]

Code: Alles auswählen

oSpalte.ParaIsHyphenation = true

Gruß
Stephan

[kannenklaus]

Code: Alles auswählen

oSpalte.ParaIsHyphenation = true

Gruß
Stephan

danke stephan es klappt

schöne weihnachten wünscht klaus