Diagrammy_v_Excel_Dzhon_Uokenbakh_2003

Непосредственное изменение свойств защиты листа диаграмм

Приведенный в предыдущем разделе макрос предназначен для внедренных диа­ грамм. При работе с листом диаграмм все четыре перечисленных выше свойства заШ1ИТЫ можно изменять непосредственно в окне свойств диаграммы. Для этого выпол­ ните ряд действий.

Прокручиваемая диаграмма

На рис. 16.15 показана биржевая диаграмма, в которой для определения рядов данных используются именованные формулы. Ячейка II (НачСтрока) определяет на­ чальную строку данных, а ячейка 12 (колДней) — количество дней, выводимых диа­ граммой. Изменение значения любой из этих ячеек приводит к изменению диапазо­ нов рядов данных. Данные охватывают 747 дней, или три года.

Использование именованных формул в рядах данных подробно рассматрива­ ется в главе 6, " Автофигуры и графика".

Рабочая книга P i c i 6 _ i 5 . x l s содержит простой макрос, увеличивающий в цикле значение ячейки НачСтрока. В результате работы макроса диаграмма анимируется — выводимые диаграммой данные прокручиваются справа налево. Ниже приведен код макроса Прокручивать Диаграмму, запускаемого кнопкой Пуск/Стоп.

Public AnimationlnProgress As Boolean Sub ПрокручиватьДиаграмму()

Dim StartVal As Long, r As Long

If AnimationlnProgress Then

AnimationlnProgress = False

End End If

AnimationlnProgress = True StartVal = Range("НачСтрока")

For r = StartVal To 74 8 - Range("КолДней")

Range("НачСтрока") = Range("НачСтрока") + 1

DoEvents

Рис. 16.15. Диапазоны выводимых диаграммой данных определяются значениями ячеек II и

В макросе используется переменная AnimationlnProgress с областью видимости Public, значение которой определяет, анимирована ли диаграмма в момент щелчка на кнопке. Если да, то макрос присваивает переменной AnimationlnProgress зна­ чение False и процедура завершается. Это позволяет запускать и останавливать про­ кручивание с помощью одной кнопки.

Примеры обработки событий

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

Процедуры обработки события Worksheet_Change

в примерах этого раздела рассматривается обработка события Worksheet_change — одного из многих событий, доступных на уровне рабочего листа. Оно генерируется при каждом изменении любой ячейки рабочего листа. Макросы такого вида могут быть весьма полезны для автоматического обновления диаграмм.

Макросы обработки событий должны быть расположены в модуле кодов ра­ бочего листа (например, в модуле Лист1). Если расположить их в стандарт­ ном модуле VBA, то они не будут запускаться.

При активизации модуля кодов диаграммы, листа или рабочей книги для вы­ деления объекта или события можно воспользоваться раскрывающимися спи­ сками, расположенными в верхней части окна кодов (рис. 16.16). В верхнем левом раскрывающемся списке приведены объекты, а в верхнем правом -— события, связанные с объектом. При выборе события редактор автоматически генерирует пустую заготовку процедуры его обработки.

Deactivate

FoliowHyperink

PivotTableUpdate

IselectionChange

Рис. 16.16. Раскрывающиеся списки в модуле кодов, предназна­ ченные для выбора события

Сокрытие и вывод диаграмм

Рабочий лист, показанный на рис. 16.17, содержит пять диаграмм, три из которых скрыты. Значение ячейки В2 определяет, какая из них в данный момент видима. В ячейке В2 используется раскрывающийся список, созданный с помощью диалогового окна Проверка вводимых значений. В списке приведены пять значений от 1 до 5 и до­ полнительный пункт попе.

\w\ ^ Выбор номера диаграммы

Рис. 16.17. Ячейка В2 содержит раскрывающийся список номе­ ров диаграмм; номер видимой диаграммы выбран в списке

в рабочем листе используется процедура обработки события Worksheet_Change, код которой приведен ниже. Обратите внимание: в процедуру передается аргумент Target. С его помощью процедуре передается переменная, представляющая изменяе­ мую ячейку или диапазон. Если адрес Target равен $В$2, то макрос выполняет две операции: скрывает все члены коллекции Chartobjects, а затем выводит диаграмму, соответствующую значению ячейки $В$2. Оператор On Error игнорирует ошибки, возникающие при неправильном задании номера объекта Chartobject.

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then

ActiveSheet.Chartobjects.Visible = False On Error Resume Next Chartobjects(Target.Value).Visible = True

End If End Sub

Пять внедренных диаграмм расположены одна поверх другой, поэтому на экране они выводятся в одинаковом положении.

Настройка шкалы оси

Ранее в этой главе рассматривался пример макроса, изменяющего параметры оси диаграммы (см. рис. 16.6). В этом примере макрос, запускаемый с помощью кнопки, изменяет три свойства шкалы оси: MinimumScale, MaximumScale и MajorUnit.

Теперь рассмотрим макрос обработки события, автоматизирующий этот процесс: при изменении значений ячеек он запускается самостоятельно, без щелчка на кнопке. Рабочий лист показан на рис. 16.18. Значения свойств Axis хранятся в именованных ячейках столбца D, им присвоены имена AxisMin, AxisMax и MajorUnit. Ниже при­ веден код макроса обработки события.

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then

With ActiveSheet.Chartobjects(1).Chart.Axes(xlValue)

.MinimumScale = Range("AxisMin")

.MaximumScale = Range("AxisMax")

.MajorUnit = Range("MajorUnit") End With

End If End Sub

Процедура Worksheet_change запускается при каждом изменении любой ячейки листа. Первый оператор проверяет свойство Column переменной Target (нас интересует только четвертый столбец). Если изменилась ячейка столбца 4, то значения ячеек читаются из листа и применяются в диаграмме. В ином случае ничего не происходит.

В файле Р1с1б_настройка осей точечной диаграммы.xls приведен пример макроса, который автоматически настраивает шкалы осей точечной диаграммы в за­ висимости от значений исходных данных.

События диаграммы

в предыдущих примерах использовались события, связанные с рабочим листом. Листы диаграмм также могут генерировать события (табл. 16.1).

Pwc. 75.7^. Макрос обработки событий, запускаемый при изменении ячеек листа, из­ меняет свойства оси диаграммы

Таблица 16.1. События, распознаваемые объектом диаграммы

Процедуры обработки событий диаграммы должны располагаться в модуле кодов листа диаграмм (например, в модуле Диаграмма!).

Подключение событий внедренных диаграмм

События листов диаграмм (но не внедренных диаграмм) подключены всегда. Чтобы исполь>зовать процедуры обработки событий с внедренными диаграммами, выполните ряд действий.

1.Создайте модуль класса. В редакторе Visual Basic выделите проект в окне проек­ тов и выберите команду /nsert'=^C/ass Module (Вставка^^^Модуль класса). При этом в проект добавляется новый (пустой) модуль класса.

2.Объявите глобальный объект chart. Переменная типа Chart должна быть объяв­ лена в модуле классов с помощью ключевого слова WithEvents, например:

Public WithEvents EmbChart As Chart

3.Свяжите объявленный объект с диафаммой. Для этого объявите объект типа ciassi (допустим, так называется модуль класса). Объектная переменная должна быть объяв­ лена на уровне модуля в обычном модуле VBA (не в модуле класса), например:

Dim MyChart As New C l a s s i

4. Создайте экземпляр объекта. Для этого выполните, например, такой оператор:

Set MyChart.EmbChart = A c t i v e S h e e t . C h a r t O b j e c t s ( 1 ) . C h a r t

После выполнения предыдущего оператора ссылка MyChart в модуле класса ука­ зывает на первую внедренную диаграмму активного листа. Теперь при наступлении события листа будут выполнены процедуры обработки событий, расположенные в модуле класса.

5.Создайте процедуры для классов диаграмм. Они располагаются в модуле класса. Ниже приведен пример простой процедуры.

P r i v a t e Sub EmbChart_Activate{)

MsgBox EmbChart.Parent.Name & " активизирована."

End Sub

6.Выполните оператор, уничтожающий объект и отменяющий прослушивание со­ бытия. Такой оператор имеет следующий вид:

Set MyChart.EmbChart = Nothing

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

листа диаграмм . xls и Р1с1б_события внедренных диаграмм . xls .

Нажатие кнопки мыши

Событие MouseDown происходит в момент щелчка на элементе диаграммы. В Excel определено также событие MouseUp — отпускание кнопки мыши. Следовательно, один щелчок кнопкой мыши генерирует два события. В примере этого раздела ис­ пользуется событие MouseDown.

На рис. 16.19 показана диаграмма с одним рядом, содержащим три точки данных. Диаграмма работает как меню: щелчок на столбике приводит к активизации соответ­ ствующего рабочего листа. Например, когда пользователь щелкает на столбике Юг, ак­ тивизируется рабочий лист Юг.

Ниже приведен код процедуры обработки события Chart_MouseDown. Процедура выполняется при каждом щелчке кнопкой мыши на диаграмме.

Private Sub Chart_MouseDown(ByVal Button As Long, __ ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

Dim ElementlD As Long

Dim argl As Long, arg2 As Long

GetChartElement X, Y, ElementlD, argl, arg2

If ElementlD = xlSeries Then

Select Case arg2

Case 1

Sheets("Север").Activate

Case 2

Sheets("Юг").Activate

Case 3

Sheets("Запад").Activate

End Select

End If

End Sub

Рис, 16.19. Отслеживание события MouseDown позволяет создать диа­ грамму, работающую как меню

Обратите внимание: процедура принимает несколько аргументов, с помощью ко­ торых можно выяснить, на чем был выполнен щелчок. Нас интересуют аргументы х и у — координаты указателя мыши в момент щелчка. Оператор GetChartElement пре­ образует координаты X и у в значения переменных ElementlD, argl и arg2.

•ElementlD — это условный номер элемента диаграммы с координатами х и у. Например, значение 3 соответствует ряду. Код VBA распознает также встроен­ ную константу XlSeries, имеющую значение 3.

•argl содержит дополнительную информацию об элементе с координатами х и у. Если номер ElementlD означает ряд, то переменная argl содержит число, соответствующее номеру ряда.

•arg2 также содержит дополнительную информацию об элементе с координата­ ми х и у. Если этот элемент — ряд, то переменная arg2 содержит номер точки данных ряда.

При некоторых значениях переменной ElementlD аргументы a r g l и arg2 не используются. Например, если щелчок выполнен на области построения, то значение ElementlD равно 2 (xlChartArea), а значения a r g l и arg2, естест­

венно, бессмысленны.

ByVal X As Long, ByVal Y As Long) Dim ElementId As Long

Dim argl As Long, arg2 As Long Dim NewText As String

On Error Resume Next

ActiveChart.GetChartElement X, Y, Elementld, argl, arg2 If Elementld = xlSeries Then

NewText = Sheets("Лист1")-Range("Comments")• _ Offset(arg2, argl)

Else

NewText = "" ActiveChart.Shapes(1).Visible = False

End If

If NewText <> ActiveChart.Shapes(1). _ TextFrame.Characters.Text Then

ActiveChart.Shapes(1).TextFrame.Characters.Text = _ NewText

ActiveChart.Shapes(1).Visible = True End If

End Sub

Процедура отслеживает все движения мыши по листу диафамм. Координаты мыши передаются процедуре в переменных х и у. аргументы Button и Shift не используются.

Как и в предыдущем примере, ключевой элемент процедуры — метод GetChartElement. Если переменная ElementlD равна x l S e r i e s , значит, указатель мыши находится над рядом. Тогда переменой NewText присваивается текст опреде­ ленной ячейки. Ячейка содержит описание текущей точки данных (рис. 16.21). Если указатель мыши находится не над рядом, то текстовая область скрывается. В ином случае в ней выводится содержимое переменной NewText.

Н 4 ТЩ^Ш!Ш!^2К1^!ь7Л./ '" liL .1|Й

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

Аналогичный пример для внедренной диаграммы приведен в рабочей книге

Picl6_пpoxoждeниe мыши, внедренная диаграмма.xls.