Форматирование серии сводных диаграмм

Question

У меня есть сводная диаграмма, и я пытаюсь отформатировать определенные наборы данных в своей диаграмме с помощью шаблона. Я записал макрос, чтобы посмотреть, как это сделает Excel. Это дало мне:

With Selection.Format.Fill
    .Visible = msoTrue
    .Patterned msopatternDarkUpwardDiagonal
End With

Который я адаптировал к:

With chrt1Overview 'chart object codename
    (....)
    With .FullSeriesCollection(i) 'iterating through series
        .ChartType = xlColumnStacked
        If .Name Like "FORECAST" Then
            With .Format.Fill
                .Visible = msoTrue
                .Patterned msoPatternDarkUpwardDiagonal
            End With
        End If
    End with
End with

Это дает мне ошибку ниже и выделяет как msoTrue а также msoPatternDarkupwardDiagonal в моем коде

Ошибка компиляции:

Переменная не определена

Запуск макроса, созданного диктофоном, также не работает, mso "переменные" пусты и выдают ошибку, что указанное значение выходит за пределы диапазона, но не дают мне ошибки компиляции, потому что Option Explicit не установлен на этом модуле.

Как правильно установить заливку шаблона для ряда данных?