Уже сломал себе голову, подскажите, как можно реализовать макрос листа. При выделении Диаграммы, а точнее - ряда на ней, выводить в отдельную ячейку Имя(а лучше номер) ряда диаграммы Данный код работает через кнопку, но не через Worksheet_SelectionChange, возможно из-за (ByVal Target As Range)
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TypeOf Selection Is Series Then ActiveSheet.ChartObjects(1).Activate [E45] = ActiveChart.SeriesCollection(1).Name End If
End Sub
[/vba]
Уже сломал себе голову, подскажите, как можно реализовать макрос листа. При выделении Диаграммы, а точнее - ряда на ней, выводить в отдельную ячейку Имя(а лучше номер) ряда диаграммы Данный код работает через кнопку, но не через Worksheet_SelectionChange, возможно из-за (ByVal Target As Range)
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TypeOf Selection Is Series Then ActiveSheet.ChartObjects(1).Activate [E45] = ActiveChart.SeriesCollection(1).Name End If
rever27, можно вставить диаграмму на лист-Диаграмма, а не на обычный, тогда для объектов Chart можно описывать события. Кстати, SeriesCollection(1) будет всегда возвращать 1-й ряд. Так можно [vba]
Код
Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long) If TypeOf Selection Is Series Then Debug.Print Selection.Name End If End Sub
[/vba]
rever27, можно вставить диаграмму на лист-Диаграмма, а не на обычный, тогда для объектов Chart можно описывать события. Кстати, SeriesCollection(1) будет всегда возвращать 1-й ряд. Так можно [vba]
Код
Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long) If TypeOf Selection Is Series Then Debug.Print Selection.Name End If End Sub
Спасибо, работает. Но у меня две диаграммы, потому что совместить точечный график с Гистограммой правильно не получается. Я правильно понимаю, что на одном листе "Диаграмма" можно стоить одну диаграмму?
Спасибо, работает. Но у меня две диаграммы, потому что совместить точечный график с Гистограммой правильно не получается. Я правильно понимаю, что на одном листе "Диаграмма" можно стоить одну диаграмму?rever27
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
