График. Наименование основной вертикальной оси макросом

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

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

31.03.2020 14:11:38

День добрый!
Пишу макрос, который строит графики на листе диаграмм. Не получается сделать название основной вертикальной оси.
Прикладываю пример с кодом. Ошибка 424 Object required вылетает на строчке

Код
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Процесс 1"

В интернете советуют сделать еще так:

Код
With Activechart.Axes(xlCategory) .HasTitle = True .AxisTitle.Text = "Процесс 1" End With

Ошибка не вылетает, но и надпись не появляется
Версия Excel Office 365.

Помогите, пожалуйста

Прикрепленные файлы

Пример.xlsm (27.51 КБ)

skais675

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

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

31.03.2020 17:08:56

Код

Public Sub plot()
    Sheets("График").Select
    With ActiveChart
        .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
        Selection.Format.TextFrame2.TextRange.Characters.Text = "Дата, время"
        
        .SetElement (msoElementPrimaryValueAxisTitleRotated)
        .Axes(xlValue, xlPrimary).AxisTitle.Text = "Процесс 1"
        
        .SetElement (msoElementSecondaryValueAxisTitleRotated)
        .Axes(xlValue, xlSecondary).AxisTitle.Text = "Процесс 2"
    End With
End Sub

Изменено: skais675 - 31.03.2020 17:10:04

Мой канал

Oda412 Пользователь Сообщений: 310 Регистрация: 23.05.2013	#3 01.04.2020 09:13:51 skais675, спасибо, заработало!