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

RSS

Изменение местонахождения Data Label гистограммы с помощью VBA, Созданный макрос выдает ошибку при выполнении Run-time error '438'

А К

Пользователь

Сообщений: 32 Регистрация: 01.01.1970

24.10.2014 20:16:10

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

Код

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

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

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

Изменено: А К - 24.10.2014 23:38:38

Kuzmich

Пользователь

Сообщений: 8045 Регистрация: 21.12.2012

24.10.2014 22:13:08

Попробуйте так

Код

With ActiveChart.SeriesCollection(1)
        .HasDataLabels = True
        .ApplyDataLabels Type:=xlDataLabelsShowValue
        With .DataLabels
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Position = xlLabelPositionAbove
            .Orientation = xlUpward
        End With
End With

Font добавьте сами