Hi все,
I am пытаясь получить, что Кодего некоторого VBA programmatically уточнить ряды серии в диаграммах (будут серии их, котор нужно сделать).
However, она получает вставила на некотором (имеющ никакое влияние). Кодий
My следующим образом:
Dim MySht
Option Explicit
Sub ChartDataFixup () как Worksheet
Dim MyCht как ChartObject
Dim MySeries по мере того как Series
на резюме Next
ошибки для каждого MySht в
ThisWorkbook.Worksheets
если о, то (MySht.Name, 3) =
Debug.Print «++++++ "
«Cht» Then
Debug.Print MySht.Name
для каждого MyCht в
MySht.ChartObjects
для каждого MySeries в
Debug.Print MyCht.Chart.SeriesCollection
«РАНЬШЕ: » & MySeries.Name & ««&
MySeries.Formula
MySeries.Formula = заменяют ть (MySeries.Formula, «$42,», «$999,
Debug.Print ")
«ПОЖЕ: » & MySeries.Name & ««&
Next
MySeries.Formula
выход
End Sub
The
Next
Debug.Print «++++++ " If
конца
Next
в немедленно окне как это (я только наклеивал первые 3, но будут дюжины):
++++++
Cht - доход - Month
BEFORE: =SERIES (данные! $E$5, «SPS Projection.xls»! Chart_Period, данные! $E$7: $E$999, 1)
AFTER: =SERIES (данные! $E$5, «SPS Projection.xls»! Chart_Period, данные! $E$7: $E$999, 1)
BEFORE: =SERIES b (данные! $F$5, «SPS Projection.xls»! Chart_Period, данные! $F$7: $F$999, 2)
AFTER: =SERIES b (данные! $F$5, «SPS Projection.xls»! Chart_Period, данные! $F$7: $F$999, 2)
BEFORE: =SERIES c (данные! $G$5, «SPS Projection.xls»! Chart_Period, данные! $G$7: $G$999, 3)
AFTER: =SERIES c (данные! $G$5, «SPS Projection.xls»! Chart_Period, данные! $G$7: $G$999, 3)
BEFORE: =SERIES d (данные! $H$5, «SPS Projection.xls»! Chart_Period, данные! $H$7: $H$999, 4)
AFTER: =SERIES d (данные! $H$5, «SPS Projection.xls»! Chart_Period, данные! $H$7: $H$999, 4)
BEFORE: =SERIES e (данные! $I$5, «SPS Projection.xls»! Chart_Period, данные! $I$7: $I$999, 5)
AFTER: =SERIES e (данные! $I$5, «SPS Projection.xls»! Chart_Period, данные! $I$7: $I$999, 5)
BEFORE: =SERIES f (данные! $J$5, «SPS Projection.xls»! Chart_Period, данные! $J$7: $J$999, 6)
AFTER: =SERIES f (данные! $J$5, «SPS Projection.xls»! Chart_Period, данные! $J$7: $J$999, 6)
BEFORE: =SERIES g (данные! $K$5, «SPS Projection.xls»! Chart_Period, данные! $K$7: $K$999, 7)
AFTER: =SERIES g (данные! $K$5, «SPS Projection.xls»! Chart_Period, данные! $K$7: $K$999, 7)
BEFORE: =SERIES итога (RHS) (данные! $N$5, данные! $N$7: $N$999, 8)
AFTER: =SERIES итога (RHS) (данные! $N$5, данные! $N$7: $N$999, 8)
++++++
Cht - валовый доход Month
BEFORE: =SERIES (данные! $A5, «SPS Projection.xls»! Chart_Period, данные! $A7:
AFTER $A999,1): =SERIES (данные! $A5, «SPS Projection.xls»! Chart_Period, данные! $A7:
BEFORE $A999,1): =SERIES b (данные! $AD$5, «SPS Projection.xls»! Chart_Period, данные! $AD$7:
AFTER $AD$999,2): =SERIES b (данные! $AD$5, «SPS Projection.xls»! Chart_Period, данные! $AD$7:
BEFORE $AD$999,2): =SERIES c (данные! $AE$5, «SPS Projection.xls»! Chart_Period, данные! $AE$7:
AFTER $AE$999,3): =SERIES c (данные! $AE$5, «SPS Projection.xls»! Chart_Period, данные! $AE$7:
BEFORE $AE$999,3): =SERIES d (данные! $AF$5, «SPS Projection.xls»! Chart_Period, данные! $AF$7:
AFTER $AF$999,4): =SERIES d (данные! $AF$5, «SPS Projection.xls»! Chart_Period, данные! $AF$7:
BEFORE $AF$999,4): =SERIES e (данные! $AG$5, «SPS Projection.xls»! Chart_Period, данные! $AG$7:
AFTER $AG$999,5): =SERIES e (данные! $AG$5, «SPS Projection.xls»! Chart_Period, данные! $AG$7:
BEFORE $AG$999,5): =SERIES итога (RHS) (данные! $AL$5, данные! $AL$7:
AFTER $AL$999,6): =SERIES итога (RHS) (данные! $AL$5, данные! $AL$7:
BEFORE $AL$999,6): =SERIES f (данные! $AH$5, «SPS Projection.xls»! Chart_Period, данные! $AH$7:
AFTER $AH$999,7): =SERIES f (данные! $AH$5, «SPS Projection.xls»! Chart_Period, данные! $AH$7:
BEFORE $AH$999,7): =SERIES g (данные! $AI$5, «SPS Projection.xls»! Chart_Period, данные! $AI$7:
AFTER $AI$999,8): =SERIES g (данные! $AI$5, «SPS Projection.xls»! Chart_Period, данные! $AI$7:
++++++
Cht $AI$999,8) - GP% - Month
BEFORE: =SERIES (данные! $BA$5, «SPS Projection.xls»! Chart_Period, данные! $BA$7: $BA$42, 1)
AFTER: =SERIES (данные! $BA$5, «SPS Projection.xls»! Chart_Period, данные! $BA$7: $BA$42, 1)
BEFORE: =SERIES b (данные! $BB$5, «SPS Projection.xls»! Chart_Period, данные! $BB$7: $BB$42, 2)
AFTER: =SERIES b (данные! $BB$5, «SPS Projection.xls»! Chart_Period, данные! $BB$7: $BB$42, 2)
BEFORE: =SERIES d (данные! $BD$5, «SPS Projection.xls»! Chart_Period, данные! $BD$7: $BD$42, 3)
AFTER: =SERIES d (данные! $BD$5, «SPS Projection.xls»! Chart_Period, данные! $BD$7: $BD$42, 3)
BEFORE: =SERIES e (данные! $BE$5, «SPS Projection.xls»! Chart_Period, данные! $BE$7: $BE$42, 4)
AFTER: =SERIES e (данные! $BE$5, «SPS Projection.xls»! Chart_Period, данные! $BE$7: $BE$42, 4)
BEFORE: =SERIES f (данные! $BF$5, «SPS Projection.xls»! Chart_Period, данные! $BF$7: $BF$42, 5)
AFTER: =SERIES f (данные! $BF$5, «SPS Projection.xls»! Chart_Period, данные! $BF$7: $BF$42, 5)
BEFORE: =SERIES g (данные! $BG$5, «SPS Projection.xls»! Chart_Period, данные! $BG$7: $BG$42, 6)
AFTER: =SERIES g (данные! $BG$5, «SPS Projection.xls»! Chart_Period, данные! $BG$7: $BG$42, 6)
++++++
As, котор вы можете увидеть, бег Кодего (ранее) фиксирует первым 2 диаграммам, но терпит неудачу на третьем chart.
What будьте мной пропуская здесь?
Thanks,
Alan.
class=
|
