а свойство C h a r t T it le возвращает объект C h a r t T it le . В самом конце оператора вы обращаетесь к свойству T e x t.

Обратите внимание, что указанный выше оператор не будет работать в случае, если диаграмма не имеет заголовка. Для добавления к диаграмме заголовка, заданного по умолчанию (отображает текст З а го л о в о к диаграммы (Chart Title)), воспользуйтесь следующим оператором:

W o rksh e e ts( "Л и ст1 ") . C h a rtO b je c ts ( 1 ) . C h a rt.H a s T itle = True

Для диаграммы на листе диаграммы объектная модель несколько отличается, так как она не содержит объект W o rk s h e e t или C h a rtO b j e c t. Например, ниже представлена объектная модель для диаграммы на листе диаграммы.

A p p lic a tio n

Workbook

C ha rt

C h a r tT itle

Следующий оператор можно использовать для просмотра заголовка диаграммы “Ежегодные продажи”:

S h e e ts ( "Л ист1" ) . C h a r t T it le . T e xt = "Ежегодные продажи"

Другими словами, лист диаграммы является объектом C h a rt и не содержит объект C h a rtO b j e c t. Если рассмотреть ситуацию в общем, то легко понять, что родительским объектом для встроенной диаграммы является объект C h a rtO b j e c t, а для диаграммы на отдельном листе диаграммы родительским объектом выступает объект W orkbook.

Ниже приведены операторы, которые отображают окно сообщения со словом Д иа ­

Создание внедренной диаграммы

Объект C h a rtO b j e c t — это специальный тип объекта Shape. По сути, он является

A c tiv e S h e e t. Shapes.AddChart

Метод A d d C h a rt использует пять аргументов (все они необязательны).

•Туре. Этот аргумент определяет тип диаграммы. Если он не указан, используется

тип диаграммы, заданный по умолчанию. Поддерживаются константы для всех типов диаграмм (например, x lA r e a , x lC o lu m n C lu s te re d и т.д.).

558 Часть V. Профессиональные методы программирования

С о зд ан и е д иагр ам м ы традиционны м сп о со б о м

Использование метода AddChart из коллекции shapes (как описано в разделе “Создание внедренной диаграммы”) обеспечивает “новый” способ создания диаграмм, появившийся в версии Excel 2007. Исходя из соображений обратной совместимости можно использовать метод Add из коллекции ChartOb je c ts . Этот метод, в отличие от метода AddC hart из коллекции shapes, не позволяет указывать тип диаграммы в каче­ стве аргумента, поэтому в случае необходимости выбора типа диаграммы, отличающего­ ся от заданного по умолчанию, следует воспользоваться свойством ChartType. Аргумен­ ты L e ft, Top, W idth и H e ig h t также являются обязательными.

Следующая процедура использует метод Add из коллекции ChartOb je c ts для соз­ дания внедренной диаграммы.

Размещение диаграммы на листе диаграммы

Впредыдущем разделе рассматривалась простая процедура, с помощью которой соз­ давалась внедренная диаграмма. Если же нужно разместить диаграмму на листе диа­ граммы, воспользуйтесь методом Add из коллекции C h a rts . Этот метод применяет множество аргументов, хотя все они определяют положение листа диаграммы, а не ин­ формацию, связанную с самой диаграммой.

Вследующем примере создается диаграмма на листе диаграммы, а также определяет­ ся диапазон данных и тип данных.

Результат выполнения этого кода приводится на рис. 18.2.

Активизация диаграммы с помощью кода VBA

Для активизации внедренной диаграммы достаточно щелкнуть мышью в ее области. Для активизации диаграммы с помощью кода VBA воспользуйтесь методом A c t iv a te . Ниже показан оператор VBA, выполнение которого дает тот же эффект, что и щелчок мышью в области внедренной диаграммы при нажатой клавише <Ctrl>.

A c tiv e S h e e t. C h a rtO b je c ts ( "Диаграмма1") .A c tiv a te

Если диаграмма находится на лксте диаграммы, используйте такой оператор:

S h e e ts ( "Диаграмма!" ) .A c tiv a te