Доступ к PivotChart SeriesCollection с помощью Sub

Question

Я совершенно новый для VBA. Я написал макрос, который создает около 10 сводных диаграмм и некоторых нормальных диаграмм после фильтрации и резки некоторых данных из электронной таблицы базы данных. Теперь я хочу написать подраздел, который проходит через одно и то же форматирование. Суб выглядит следующим образом:

Sub FormatChart(Cht As ChartObject, title As String) 
Cht.Activate 
MsgBox ActiveChart.SeriesCollection.Count 
With ActiveChart 
    .HasTitle = True 
    .ChartTitle.Text = title 
    .Axes(xlValue).HasMajorGridlines = False 
End With 
ActiveChart.SeriesCollection(1).Select 
With Selection.Format.Fill 
    .Visible = msoTrue 
    .ForeColor.RGB = RGB(255, 182, 0) 
End With 
End Sub 

я первоначально не включал все Активизирует и выбирает, но не мог заставить макрос работать без них и не видят его как конец мира - наборы данных никогда не будут массовыми, поэтому скорость не так важна, и я отключу экранирование, чтобы пользователи не могли нажимать на ячейки/другие объекты и нарушать макрос при его запуске.

Вот моя проблема. Если я вынимаю второй цикл With, все происходит отлично, а сетки удаляются и заголовок добавляется. Тем не менее, всякий раз, когда я пытаюсь редактировать цвета столбцов с указанным выше, я получаю ошибку времени выполнения «1004»: недопустимый параметр. Я также попытался сохранить содержимое второго с циклом внутри первого, но затем переместил его, чтобы попробовать использовать выбор, чтобы узнать, не изменилось ли оно.

Я возился совсем немного и записали различные макросы, изменив цвет диаграммы в вопросе, но я думаю, что проблема может быть связана с ссылающегося SeriesCollection, как когда я пытаюсь отлаживать с

MsgBox ActiveChart.SeriesCollection.Count 

Я получаю «0».

Пожалуйста, дайте мне знать, если я пропускаю пункт - как я сказал, что я новичок в VBA и пытаюсь узнать как можно больше :)

EDIT: Решение было то, что я проходил каждый график к вышеуказанной части после того, как я создал диаграмму, но до того, как я установил источник данных для диаграммы. Doh!

Это, очевидно, означало, что для этой диаграммы не было серийных номеров, следовательно, я получал ошибку.

Я пометил Joehannah как ответ на вопрос (хотя это не технически решение), потому что это заставило меня проверить мой код и заметить, что вышеупомянутое может вызвать проблему - если я не должен этого делать, меня, и я постараюсь это исправить!

Answer 1

Мне сказали оставить свой собственный ответ, так как я понял проблему.

я проходил каждый график этой функции сразу после его создания, а именно:

Set ptr1 = Sheets("withinBRSPivots").PivotTables("UniqueClicks").TableRange1 
Set cht1 = Sheets("BRS Overview").ChartObjects.Add(Left:=950, Top:=500, _ 
    Width:=400, Height:=300) 
cht1.Name = "UCChart" 
Charter.FormatChart cht1, "Average Number of Unqique Clicks" 

Я тогда установить исходные данные для диаграммы после выполнения указанных выше. Это означало, что когда диаграмма была передана моей подписи chartformat, у нее не было исходных данных. Это привело к тому, что вы могли редактировать заголовок и линии сетки, но не серийный набор. Исправить было просто переместить подстроку FormatChart после того, как я установил исходные данные.

Большое спасибо всем, кто разместил ответы!

Answer 2

Вам лучше использовать Set cht = (create chart object) для каждого графика, а затем сразу же вызвать метод форматирования, проходящий в cht.