Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Обращение к оси диаграммы без ее активации - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к оси диаграммы без ее активации (Макросы/Sub)
Обращение к оси диаграммы без ее активации
Sancho Дата: Четверг, 22.06.2017, 07:40 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 9 ±
Замечаний: 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(19Kb)


Сообщение отредактировал Sancho - Четверг, 22.06.2017, 07:40
 
Ответить
СообщениеДобрый день!
Подскажите пожалуйста как возможно обратиться к диаграмме без её активации в комбинации строк.
[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]
подскажите истину, день ковырял многие варианты,ничего не получается...

Автор - Sancho
Дата добавления - 22.06.2017 в 07:40
Karataev Дата: Четверг, 22.06.2017, 07:46 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 857
Репутация: 321 ±
Замечаний: 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
 
Ответить
СообщениеНужно использовать объект "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:46
Sancho Дата: Четверг, 22.06.2017, 07:54 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 9 ±
Замечаний: 0% ±

2007, 2010, 2013
Karataev, Спасибо!
 
Ответить
СообщениеKarataev, Спасибо!

Автор - Sancho
Дата добавления - 22.06.2017 в 07:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к оси диаграммы без ее активации (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!