Деактивизация диаграммы

В предыдущем разделе был использован метод A c tiv a te для активизации диаграм­ мы. Теперь же ее нужно деактивизировать, т.е. отменить выделение. Как же это сделать? В соответствии с рекомендациями справочной системы, для этого следует воспользо­ ваться методом D e se le c t.

A c tiv e C h a rt.D e s e le c t

Однако этот оператор не работает, по крайней мере в данной версии Excel.

Поэтому единственный способ деактивизации диаграммы с помощью макроса — вы­ брать объект, отличающийся от диаграммы. В случае с внедренной диаграммой можно воспользоваться свойством Range Se l e c t i o n объекта A c tiv e Window для деактиви­ зации диаграммы и выбора диапазона данных, который был выделен до активизации диаграммы.

ActiveW indow. R a n g e S e le c tio n . S e le c t

Для деактивизации диаграммы, находящейся на листе диаграммы, просто напишите код VBA, который выбирает другой рабочий лист.

Определение активности диаграммы

Обычно макрос выполняет операции по отношению к активной диаграмме (выделенной пользователем). Например, макрос может изменять тип диаграммы, приме­ нять стиль или экспортировать диаграмму в графический файл.

Возникает вопрос: каким образом код VBA определяет, что пользователь выделил диаграмму? Под выделением диаграммы подразумевается активизация листа диаграммы либо щелчок мышью в области внедренной диаграммы. Первым этапом является про­ верка свойства TypeName для объекта S e le c tio n с помощью следующего оператора:

TypeName(Selection) = "C h a rt"

Фактически это выражение никогда не будет равным True. Если диаграмма активи­ зирована, то фактически выделяется объект в составе объекта C hart. Например, выде­ ление может представлять объект S e rie s , объект C h a rtT itle , объект Legend, объект PlotArea и т.д.

Решение этой задачи заключается в том, чтобы определить, будет ли значение свойства ActiveChart равно N othing. Если ответ на этот вопрос положителен, значит, диаграмма не является активной. В этом случае на экране отображается соответствующее сообщение, послечего процедура завершает свою работу. Код этой процедуры приведен ниже.

If A c tiv e C h a rt Is N o th in g Then MsgBox "Выберите диаграмму." E x it Sub

Else

1 здесь находится другой код End I f

Иногда для определения активности диаграммы удобнее воспользоваться функцией VBA. Функция C hart IsS e le c te d , код которой приведен ниже, возвращает значение True, если листдиаграммы активен, и значение F alse, если диаграмма не активизирована.