artiso Blog - Pivot-Charts Formatierung behalten

Monday, July 17, 2006

Pivot-Charts Formatierung behalten by Thomas Schissler

Nach der Aktualisierung von Daten eines Pivot-Charts sind ie Formatierungen wie Farben der Balken etc. verloren. Dies liegt daran, weil das Diagramm komplett neu aufgebaut wird. Dies kann man umgehen, indem man die Einstellungen als benutzerdefinierten Diagrammtyp speichert und diesen dann dem Chart wieder zuweist. Ein Makro zur Aktualisierung der Daten eines Pivot-Charts ohne Verlust der Formatierung könnte dann so aussehen:

    ActiveWorkbook.Sheets("Projektzeiten").PivotTables("PivotTable2").PivotCache.Refresh
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.ActiveWorkbook.Charts(1).ApplyCustomType ChartType:=xlUserDefined, TypeName:="MyType"
    Application.ActiveWorkbook.Charts(1).HasPivotFields = False

Den Wait in Zeile 2 braucht er offensichtlich, da sonst die Aktualisierung noch nicht abgeschlossen ist.

Monday, July 17, 2006 6:13:06 PM (Mitteleuropäische Zeit, UTC+01:00)

Comments [1] Excel |

Thursday, February 07, 2008 1:24:57 PM (Mitteleuropäische Zeit, UTC+01:00)

Perfekt, habe den Pivot Chart als benutzerdefiniert angelegt. Leider kenn ich mich m it Makros nicht so gut aus und muss daher nach jeder Filteränderung wieder das benutzerdefinierte laden. Wo muss denn dieses Makro hingelegt werden ?

Aber auch so ist mir schon sehr geholfen

H. Unger | hermannungerAT NOSPAMweb dot de

All comments require the approval of the site owner before being displayed.

Name
E-mail
Home page

	Remember Me
Comment (HTML not allowed)
Enter the code shown (prevents robots):