von komma4 » Fr, 05.10.2007 00:28
listiger_Lurch hat geschrieben:Wie geht das automatisch?
Meintest Du sowas:
Code: Alles auswählen
sub refreshPivot
' recorded 2007-02-13
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())
end sub
Funktioniert nur, wenn sich die Selektion innerhalb der Pivot-Tabelle befindet.
Also:
a) erweitern um den Code zur Auswahl des Tabellenblatts
b) Selektion einer Zelle in die Pivot-Tabellen durch Code
Hilft Dir das weiter?
[quote="listiger_Lurch"]Wie geht das automatisch?[/quote]
Meintest Du sowas:
[code]sub refreshPivot
' recorded 2007-02-13
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())
end sub[/code]
Funktioniert nur, wenn sich die Selektion innerhalb der Pivot-Tabelle befindet.
Also:
a) erweitern um den Code zur Auswahl des Tabellenblatts
b) Selektion einer Zelle in die Pivot-Tabellen durch Code
Hilft Dir das weiter?