диаграмму, на основе которой будут изменяться размеры других диаграмм. Для ввода

Экспорт диаграммы

Иногда диаграмму Excel нужно преобразовать в графический файл. Необходимость в этом возникает при публикации диаграммы на веб-сайте. Для этого можно воспользо­ ваться программой для получения экранных снимков, скопировав пиксели непосредст­ венно с экрана. Можно также написать простой макрос VBA.

В следующей процедуре метод E x p o r t объекта C h a rt используется для сохранения активной диаграммы в виде GIF-файла.

Рис. 18.6. Изменение размера и выравнивание внедренных диаграмм с помощью макроса VBA

Аргумент F ilte rN a m e может также принимать значения "JPEG" и "PNG". Обычно файлы GIF и PNG обеспечивают лучшее качество изображений.

Имейте в виду, что метод E x p o rt может оказаться неработоспособным, если на ком­ пьютере пользователя не установлен нужный фильтр экспорта изображений. Эти фильтры устанавливаются при инсталляции программ Office (или одной программы Excel).

Э кспорт всех изображ ений

Первый способ экспорта всех изображений из рабочей книги заключается в сохране­ нии этой книги в формате HTML. При этом создается папка, в которой находятся изо­ бражения в форматах GIF и PNG для диаграмм, форм, библиотек изображений и даже для скопированных диапазонов изображений (созданных с помощью команды Главная^ Буфер обмена^Вставитьс>Вставить(А) (HomeMClipboardMPasteMPaste (U)).

Ниже приводится код процедуры VBA, которая автоматизирует этот процесс. Она работает с активной рабочей книгой.

' Сохраняет активную рабочую к н и гу в формате HTML,

1 затем повторно откры вает исходную кн и гу

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

Переменная U serR ow содержит номер строки, в которой находится активная ячейка. Оператор I f проверяет, находится ли активная ячейка в строке, которая содержит дан­ ные. (Данные начинаются с четвертой строки.) Если курсор ячейки находится в строке, которая не содержит данных, объект C h a rtO b j e c t скрывается, и на экране появляется находящийся под ним текст (“Невозможно отобразить диаграмму”)- Если же данные в этой строке имеются, свойству V a lu e s объекта S e r ie s присваивается диапазон дан­ ных в столбцах 2-6 активной строки. Также объекту C h a r t T it le присваивается текст, находящийся в столбце А.

К о м п акт-д и ск

Пример из этого раздела находится на прилагаемом к книге компакт-диске в файле c h a rt a c tiv e c e ll . xlsm .

Определение используем ы х в диаграм м е диапазонов

данны х с помощ ью VBA

В предыдущем примере рассматривалось использование свойства V a lu e s объекта S e r ie s для определения данных, применяемых в ряде данных диаграммы. В этом раз­ деле рассматривается использование макросов VBA для идентификации диапазонов, применяемых рядами данных диаграммы. Например, можно увеличить размер каждого ряда данных путем добавления новой ячейки в диапазон.

Ниже описаны три свойства, используемые в процессе решения этой задачи.

•Свойство Form ula. Возвращает значение функции РЯД либо настраивает ее с уче­ том выбранного ряда. После выбора ряда данных на диаграмме соответствующая функция РЯД отображается на панели формул. Свойство Form ula возвращает функцию РЯД в виде строки.

•Свойство V a lu e s . Возвращает или устанавливает коллекцию всех значений ря­ да. Может быть диапазоном данных рабочего листа либо массивом постоянных значений, но не может быть тем и другим одновременно.

•Свойство X V alues. Возвращает или устанавливает массив Х-значений для ряда данных диаграммы. Свойству X V a lu e s можно присвоить диапазон данных на ра­ бочем листе или массив значений, но не комбинацию диапазона данных и массива значений. Свойство X V a lu e s может быть также пустым.

При создании макроса VBA, для которого требуется обозначить диапазон данных, используемый для определения ряда данных, можно рассматривать свойство V alues объекта S e r ie s в качестве “билета”. Создается впечатление, что свойство X va lu e s обеспечивает способ получения диапазона данных, который содержит Х-значения (или надписи на оси категорий). На первый взгляд это представление кажется верным (в теории), но на практике оно не работает.

При установке значения свойства V a lu e s для объекта S e r ie s можно указать объект Range либо массив. Учтите, что при чтении значения этого свойства всегда возвращает­ ся массив. К сожалению, объектная модель не может подсказать способа получения дос­ тупа к объекту Range с помощью объекта S e r ie s .

Одно из возможных решений заключается в том, чтобы написать код, производящий синтаксический анализ функции РЯД, в процессе которого извлекается диапазон адресов.

На первый взгляд эта задача кажется простой, но на практике функция РЯД может быть очень сложной. Ниже приведены примеры этой функции.

=РЯД (Л и с т1 ! $ В $ 1, Л и с т 1 ! $А$2 : $А$4 , Л и с т 1 ! $В$2 : $В$4 , 1)

=РЯД(/ ,Л и с т 1 !$ В $ 2 :$ В $ 4 ,1)

=РЯД( , Л и с т 1 ! $ А $ 2 : $ А $ 4, Л и с т 1 ! $ В $ 2 : $В $ 4,1 ) =РЯД( "И тоги п родаж ", , Л и с т 1 ! $ В $ 2 : $ В $ 4,1 )

=РЯД( , { "Я нварь" , " Февраль" , "М арт" } , Л и с т 1 ! $ В $ 2: $ В $ 4,1 ) =РЯД(, (Л и с т 1 ! $ А $ 2, Л и с т 1 ! $ А $4) , (Л и с т1 ! $ В $2, Л и с т 1 ! $В $4) ,1 )

=РЯД(Лист1! $ В $ 1, Л и с т 1 ! $ А $ 2 : $ А $ 4, Л и с т 1 ! $ В $ 2: $ В $ 4, 1 , Л и с т 1 ! $ С $ 2: $С $4)

Таким образом, в функции РЯД аргументы могут отсутствовать, в качестве аргумен­ тов могут использоваться массивы и даже несмежные диапазоны адресов. И, что еще больше усложняет дело, пузырьковая диаграмма в последнем примере функции РЯД мо­ жет включать дополнительный аргумент. Синтаксический разбор подобного аргумента является нетривиальной программистской задачей.

Я провел много времени, решая эту задачу, и в итоге пришел к верному решению. Суть его заключалась в обращении к функции-“пустышке”. Эта функция принимает те же аргументы, что и функция РЯД, возвращая массив размером 2x5, в котором содер­ жатся все сведения о функции РЯД.

Полученное решение было упрощено путем создания четырех пользовательских функций VBA, каждая из которых принимает один аргумент (ссылка на объект S e rie s ) и возвращает массив, состоящий из двух элементов. Эти функции перечислены ниже.

•SERIESNAME_FROM_SERIES. Первый элемент массива, содержащий строку, ко­

торая описывает тип данных для первого аргумента функции РЯД (диапазон, пус­ то или строка). Второй элемент массива содержит адрес диапазона, пустую строку или строку.

• XVALUES_FROM_S ERI ЕS. Первый элемент массива содержит строку, которая описывает тип данных второго аргумента функции РЯД (диапазон, массив, пусто или строка). Второй элемент массива содержит адреса диапазона, массив, пустую строку или строку.

•VALUES_FROM_SERIES. Первый элемент массива содержит строку, которая опи­

сывает тип данных третьего аргумента функции РЯД (диапазон или массив). Вто­ рой элемент массива содержит адрес диапазона или массива.

•BUBBLESIZE_FROM_SERIES. Первый элемент массива содержит строку, кото­

рая описывает тип данных пятого аргумента функции РЯД (диапазон, массив или пусто). Второй элемент массива содержит адрес диапазона, массив или пустую строку. Эта функция работает только с пузырьковыми диаграммами.

Обратите внимание на, что я обошел вниманием функцию, используемую для полу­ чения четвертого аргумента функции РЯД (порядок рисования). Этот аргумент можно получить непосредственно с помощью свойства объекта

К ом пакт-диск

§Код VBA, реализующий описанные выше функции, слишком длинный и здесь не приводится, но вы можете его найти на прилагаемом к книге ком-

пакт-диске в файле g e t s e rie s ranges .xlsm . Эти функции документиро­ ваны и могут быть легко адаптированы для применения в других ситуациях.

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

Процедура D ata L a b e lsF ro m R a n g e работает только с первой диаграммой на актив­ ном листе. При выполнении этой процедуры пользователь должен указать диапазон дан­ ных, после чего осуществляется циклический обход коллекции P o in ts с изменением свойства T e x t для значений, находящихся в диапазоне данных.

'Запрос диапазона

'Добавление подписей

На рис. 18.10 показана диаграмма после выполнения процедуры Range и указания в качестве диапазона данных А2:А9.

Подпись данных в диаграмме может представлять собой ссылку на ячейку. Для изме­

D L R a n g e (i).A d d re s s (R e fe re n c e S ty le : =X 1R1C1)

П р и м еч а н и е

Описанная выше процедура несовершенна и практически не выполняет про­ верку на наличие ошибок. Кроме того, она работает только с первым объектом из коллекции S e rie s . Более совершенную процедуру, выполняющую добав­ ление подписей данных, можно найти в надстройке Power Utility Рак.

Диалоговое окно U serForm для этого примера очень простое. Оно содержит эле­ менты управления Image и CommandButton (кнопка Закрыть). Рабочий лист, содер­ жащий данные, также включает кнопку, которая вызывает следующую процедуру.

Так как диаграмма основана на данных строки активной ячейки, процедура отобра­ жает предупреждение, если курсор оказывается в неправильной строке данных. Если ак­ тивная строка выбрана правильно, то процедура ShowChart вызывает процедуру Cre­ a te C h a rt для создания необходимой диаграммы. После этого отображается пользова­ тельское диалоговое окно.

Процедура C re a te C h a rt принимает один аргумент, который представляет строку активной ячейки. Эта процедура получена на основе макроса, который записан при соз­ дании диаграммы и откорректирован для приведения к более универсальному виду.

T e m p C h a rt. S e tS o u rc e D a ta S o u rc e : = S o u rc eD a ta

'Н астройка диаграммы

. P lo t A r e a . I n t e r i o r . C o lo rln d e x = xlN o n e

.A x e s ( x lV a lu e ) .M a jo r G r id lin e s .D e le t e

. A p p ly D a ta L a b e ls T y p e : = x lD a ta L a b e ls S h o w V a lu e , _ L eg en dK ey: = F a ls e

. A x e s (x lV a lu e ).M a x im u m S c a le = 0 .6

. C h a r tA re a . F o rm a t. L in e . V i s i b l e = F a ls e End W ith

'Задание разм ера диаграммы

W ith A c tiv e S h e e t . C h a r tO b je c ts (1)

End W ith