Как сгенерировать график с названиями осей без получения ошибки времени выполнения 424

Question

Я пишу макрос для генерации графиков и использовал макрос рекордер, чтобы сделать это. Когда он добирается до части, где я помещаю ось titales в него, запускается ошибка «ошибка времени выполнения объекта 424 требуется». Чего мне не хватает?

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

    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
    ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "# Samples"
    Selection.Format.TextFrame2.TextRange.Characters.Text = "# Samples"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 
    9).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With