Diagramm nach DB-Aktualisierung im Ausgangszustand
08.11.2006 11:54:50
Marike
Hallo
Hatte vor Tagen folgendes Problem:In meiner lokalen Arbeitsmappe frage ich Daten aus einer Oracle DB ab, nutze auch einige Diagramme (Tortendiagramme), die ich mit ein wenig Aufwand so angepasst habe, dass sie meinen Anforderungen entsprechen. Das PROBLEM: sowohl nach manueller, als auch VBA-gesteurter Aktualisierung der Daten, werde die Diagramme wieder im Excel-Ur-Zustand formatiert angezeigt. Kann/Muss ich das mühselige erneute Nachformatieren nicht irgendwie umgehen, muss vielleicht nur irgendwo nen Häkchen gesetzt werden ?
Darauf hatte mir EtoPHG folgenden Lösungsvorschlag gebracht:
1. Formatiere das Diagram nach deinen Anforderungen
2. Speichere das Diagram als benutzerdefiniertes Diagramm (Diagramm - Diagrammtyp - Benutzerdefinierte Typen - Benutzerdefiniert - Hinzufügen - "DeinDiagramName"
3. Jetzt baust du in deine VBA-gesteuerte Aktualisierung noch ein:
Sub updChart()
Dim diagr As ChartObject
For Each diagr In ActiveSheet.ChartObjects
diagr.Chart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="DeinDiagramName"
Next
End Sub
Leider hatte ich damals - etwas voreilich, wie sich herausstellte - angenommen, dass der Code funktionierte....jedoch tut er das nach erneutem Öffnen des Workbooks nicht. Habt ihr einen Tip ?
Mein Code sieht halt so aus:
1. Formatiere das Diagram nach deinen Anforderungen
2. Speichere das Diagram als benutzerdefiniertes Diagramm (Diagramm - Diagrammtyp - Benutzerdefinierte Typen - Benutzerdefiniert - Hinzufügen - "DeinDiagramName"
3. Jetzt baust du in deine VBA-gesteuerte Aktualisierung noch ein:
'Àktualisierung
ActiveChart.PivotLayout.PivotTable.RefreshTable
'Formatierung der Diagramme
Sub updChart()
Dim diagr As ChartObject
Sheets("Diagrammname").Activate
For Each diagr In ActiveSheet.ChartObjects
diagr.Chart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="DeinDiagramName"
Next
End Sub