Изменение местонахождения Data Label гистограммы с помощью VBA

[Red Fox]

Уважаемы, форумчане!

Подскажите, пожалуйста, почему при написании следующего макроса, возникает ошибка:

Sub DataLabels()
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    With ActiveChart.SeriesCollection(1).DataLabels
        With .Font
            .Name = "Times New Roman"
            .Size = 10
            .Bold = msoTrue
        End With
        .Position = xlLabelPositionInsideEnd  'xlLabelPositionAbove
        .NumberFormat = "#,##0.00_);[Red](#,##0.00)"
    End With
End Sub

Основная цель макроса - установление положения Data Labels над столбцами гистограммы. Ошибка появляется при выполнении строки #9. Или возможно есть другой вариант исполнения макроса.

Заранее спасибо за советы.

[IgorGO]

попробуйте использовать одну из других позицию метки:
xlLabelPositionAbove 0 Data label is positioned above the data point.
xlLabelPositionBelow 1 Data label is positioned below the data point.
xlLabelPositionBestFit 5 Microsoft Office Excel 2007 sets the position of the data label.
xlLabelPositionCenter -4108 Data label is centered on the data point or is inside a bar or pie chart.
xlLabelPositionCustom 7 Data label is in a custom position.
xlLabelPositionInsideBase 4 Data label is positioned inside the data point at the bottom edge.
xlLabelPositionInsideEnd 3 Data label is positioned inside the data point at the top edge.
xlLabelPositionLeft -4131 Data label is positioned to the left of the data point.
xlLabelPositionMixed 6 Data labels are in multiple positions.
xlLabelPositionOutsideEnd 2 Data label is positioned outside the data point at the top edge.
xlLabelPositionRight -4152 Data label is positioned to the right of the data point.