Обращение к оси диаграммы без ее активации

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к оси диаграммы без ее активации (Макросы/Sub)

Sancho

Дата: Четверг, 22.06.2017, 07:40 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

Добрый день!
Подскажите пожалуйста как возможно обратиться к диаграмме без её активации в комбинации строк.
[vba]

Код

Лист1.ChartObjects("Диаграмма 1").Activate

With ActiveChart.Axes(xlCategory).TickLabels

[/vba]

отключив первую строку пытаюсь изобразить следующее: [vba]

Код

With Charts("Диаграмма 1").Axes(xlCategory).TickLabels

[/vba] или [vba]

Код

With Sheets("лист1").ChartObjects("Диаграмма 1").Axes(xlCategory).TickLabels

[/vba]
подскажите истину, день ковырял многие варианты,ничего не получается...

К сообщению приложен файл: chart.xlsm (18.5 Kb)

Сообщение отредактировал Sancho - Четверг, 22.06.2017, 07:40

Ответить

Karataev

Дата: Четверг, 22.06.2017, 07:46 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Нужно использовать объект "Chart":
[vba]

Код

Sub Диаграмма()
    Dim objAxis As Axis
    Set objAxis = ActiveSheet.ChartObjects("Диаграмма 1").Chart.Axes(xlCategory)
    objAxis.TickLabels.Font.Size = 8
End Sub

[/vba]
Вместо "ActiveSheet" укажите нужный лист.

Сообщение отредактировал Karataev - Четверг, 22.06.2017, 07:49

Ответить

Sancho

Дата: Четверг, 22.06.2017, 07:54 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

Karataev, Спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к оси диаграммы без ее активации (Макросы/Sub)

Страница 1 из 1
1