Hallo alle,
I morgens versuchend, irgendein VBA Code zu erhalten, um Reihenstrecken in den Diagrammen programmatically zu aktualisieren (es gibt Lose von ihnen, zum zu tun).
However, erhält sie haftete auf einigem (keinen Effekt habend).
My Code ist, wie folgt:
Option Explicit
Sub ChartDataFixup ()
Dim MySht als Worksheet
Dim MyCht als ChartObject
Dim MySeries, wie Series
auf Störungs-Zusammenfassung Next
für jedes MySht ThisWorkbook.Worksheets
im
, wenn Sie verlassen werden (MySht.Name, 3) = „Cht“ Then
Debug.Print „++++++ "
Debug.Print MySht.Name
für jedes MyCht MySht.ChartObjects
im
für jedes MySeries MyCht.Chart.SeriesCollection
im
Debug.Print „VORHER: “ U. ersetzen MySeries.Name u. „„u. MySeries.Formula
MySeries.Formula = (MySeries.Formula, „$42,“, „$999, ")
Debug.Print „NACHHER: “ U. ist MySeries.Name u. „„u. MySeries.Formula
Next
Next
Ende If
Next
Debug.Print „++++++ "
End Sub
The Ausgang im sofortigen Fenster so (ich habe nur die ersten drei geklebt, aber es gibt Dutzende):
++++++
Cht - Einkommen - Month
BEFORE: Ein =SERIES (Daten! $E$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $E$7: $E$999, 1)
AFTER: Ein =SERIES (Daten! $E$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $E$7: $E$999, 1)
BEFORE: B =SERIES (Daten! $F$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $F$7: $F$999, 2)
AFTER: B =SERIES (Daten! $F$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $F$7: $F$999, 2)
BEFORE: C =SERIES (Daten! $G$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $G$7: $G$999, 3)
AFTER: C =SERIES (Daten! $G$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $G$7: $G$999, 3)
BEFORE: D =SERIES (Daten! $H$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $H$7: $H$999, 4)
AFTER: D =SERIES (Daten! $H$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $H$7: $H$999, 4)
BEFORE: E =SERIES (Daten! $I$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $I$7: $I$999, 5)
AFTER: E =SERIES (Daten! $I$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $I$7: $I$999, 5)
BEFORE: F =SERIES (Daten! $J$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $J$7: $J$999, 6)
AFTER: F =SERIES (Daten! $J$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $J$7: $J$999, 6)
BEFORE: G =SERIES (Daten! $K$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $K$7: $K$999, 7)
AFTER: G =SERIES (Daten! $K$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $K$7: $K$999, 7)
BEFORE: Gesamt (rechte Seite) =SERIES (Daten! $N$5, Daten! $N$7: $N$999, 8)
AFTER: Gesamt (rechte Seite) =SERIES (Daten! $N$5, Daten! $N$7: $N$999, 8)
++++++
Cht - Bruttogewinn Month
BEFORE: Ein =SERIES (Daten! $A5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $A7: $A999,1)
AFTER: Ein =SERIES (Daten! $A5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $A7: $A999,1)
BEFORE: B =SERIES (Daten! $AD$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AD$7: $AD$999,2)
AFTER: B =SERIES (Daten! $AD$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AD$7: $AD$999,2)
BEFORE: C =SERIES (Daten! $AE$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AE$7: $AE$999,3)
AFTER: C =SERIES (Daten! $AE$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AE$7: $AE$999,3)
BEFORE: D =SERIES (Daten! $AF$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AF$7: $AF$999,4)
AFTER: D =SERIES (Daten! $AF$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AF$7: $AF$999,4)
BEFORE: E =SERIES (Daten! $AG$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AG$7: $AG$999,5)
AFTER: E =SERIES (Daten! $AG$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AG$7: $AG$999,5)
BEFORE: Gesamt (rechte Seite) =SERIES (Daten! $AL$5, Daten! $AL$7: $AL$999,6)
AFTER: Gesamt (rechte Seite) =SERIES (Daten! $AL$5, Daten! $AL$7: $AL$999,6)
BEFORE: F =SERIES (Daten! $AH$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AH$7: $AH$999,7)
AFTER: F =SERIES (Daten! $AH$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AH$7: $AH$999,7)
BEFORE: G =SERIES (Daten! $AI$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AI$7: $AI$999,8)
AFTER: G =SERIES (Daten! $AI$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $AI$7: $AI$999,8)
++++++
Cht - GP% - Month
BEFORE: Ein =SERIES (Daten! $BA$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BA$7: $BA$42, 1)
AFTER: Ein =SERIES (Daten! $BA$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BA$7: $BA$42, 1)
BEFORE: B =SERIES (Daten! $BB$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BB$7: $BB$42, 2)
AFTER: B =SERIES (Daten! $BB$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BB$7: $BB$42, 2)
BEFORE: D =SERIES (Daten! $BD$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BD$7: $BD$42, 3)
AFTER: D =SERIES (Daten! $BD$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BD$7: $BD$42, 3)
BEFORE: E =SERIES (Daten! $BE$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BE$7: $BE$42, 4)
AFTER: E =SERIES (Daten! $BE$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BE$7: $BE$42, 4)
BEFORE: F =SERIES (Daten! $BF$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BF$7: $BF$42, 5)
AFTER: F =SERIES (Daten! $BF$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BF$7: $BF$42, 5)
BEFORE: G =SERIES (Daten! $BG$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BG$7: $BG$42, 6)
AFTER: G =SERIES (Daten! $BG$5, „Überziehschutzanlage Projection.xls“! Chart_Period, Daten! $BG$7: $BG$42, 6)
++++++
As, das Sie sehen können, (vorhergehender Durchlauf) des Codes geregelt den ersten zwei Diagrammen, aber ist auf dem dritten chart.
What sind ich hier verfehlend ausgefallen?
Thanks,
Alan.
|
