silbentrennung in zelle
Verfasst: Fr, 23.12.2005 21:15
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
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