von Jörg » Do, 30.09.2021 16:47
Hallo mikeleb,
mikeleb hat geschrieben: ↑Do, 30.09.2021 13:08
hast du schon mal versucht, die Formatvorlagen anzupassen?
das will mir nicht gelingen. Ich glaub die Pivot-Tabellen führen da ihr Eigenleben.
Die Formatierungen der Zellen des Arbeitsblattes, die nicht Bestandteil einer Pivot-Tabelle sind, bleiben erhalten.
Die Werte und Beschriftungen innerhalb der Pivot-Tabellen hingegen werden auf Standardwerte (hier Schriftgröße 10) zurückgesetzt.
Dies passiert auch, wenn nachdem die Tabelle manuell formatiert wurde (auf Schriftgröße 12), die Aktualisierung manuell angestoßen wird.
Ich habe den Code etwas angepaßt, so dass er etwas schlanker ist.
Code: Alles auswählen
Sub Pivot3
With Thiscomponent.Sheets()
For i = 0 To .Count-1
With .GetByIndex(i).getDataPilotTables()
If .Count > 0 Then
For j = 0 To .Count-1
.getbyindex(j).refresh()
Next j
End If
End With
Next i
End With
Pivot_format
end sub
'
'#####################################################
'
Sub Pivot_format
myDoc = thisComponent
mysheet= myDoc.sheets().GetByName("Außenstände")
mycell= mysheet.getCellRangeByName("A3:P55")
mycell.CharHeight="14"
ocell= mysheet.getCellRangeByName ("A29")
ocell.CharHeight="15"
oSp = MySheet.getColumns()
oSp.optimalWidth = true
end sub
Vielleicht hast Du ja eine Idee.
Ansonsten, komm ich damit aus.
Hallo mikeleb,
[quote=mikeleb post_id=296268 time=1633000125 user_id=43151]
hast du schon mal versucht, die Formatvorlagen anzupassen?
[/quote]
das will mir nicht gelingen. Ich glaub die Pivot-Tabellen führen da ihr Eigenleben.
Die Formatierungen der Zellen des Arbeitsblattes, die nicht Bestandteil einer Pivot-Tabelle sind, bleiben erhalten.
Die Werte und Beschriftungen innerhalb der Pivot-Tabellen hingegen werden auf Standardwerte (hier Schriftgröße 10) zurückgesetzt.
Dies passiert auch, wenn nachdem die Tabelle manuell formatiert wurde (auf Schriftgröße 12), die Aktualisierung manuell angestoßen wird.
Ich habe den Code etwas angepaßt, so dass er etwas schlanker ist.
[code]Sub Pivot3
With Thiscomponent.Sheets()
For i = 0 To .Count-1
With .GetByIndex(i).getDataPilotTables()
If .Count > 0 Then
For j = 0 To .Count-1
.getbyindex(j).refresh()
Next j
End If
End With
Next i
End With
Pivot_format
end sub
'
'#####################################################
'
Sub Pivot_format
myDoc = thisComponent
mysheet= myDoc.sheets().GetByName("Außenstände")
mycell= mysheet.getCellRangeByName("A3:P55")
mycell.CharHeight="14"
ocell= mysheet.getCellRangeByName ("A29")
ocell.CharHeight="15"
oSp = MySheet.getColumns()
oSp.optimalWidth = true
end sub[/code]
Vielleicht hast Du ja eine Idee.
Ansonsten, komm ich damit aus.