Листинг 18.1. Процедура КруговаяДиаграмма

1: Sub КруговаяДиаграмма()

2: Charts.Add

3: ActiveChart.ChartType = xlPie

4: ActiveChart.SetSourceData _

5: Source:=Sheets("Лист1").Range("A1:B6"), PlotBy:=xlColumns

6: ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

7: ActiveChart.ApplyDataLabels _

Type:=xlDataLabelsShowPercent, LegendKey:=False, _

8: HasLeaderLines:=True

9: ActiveChart.ChartTitle.Select

10: Selection.AutoScaleFont = True

11: With Selection.Font

12: .Name = "Arial"

13: .FontStyle = "полужирный курсив"

14: .Size = 14

15: .Strikethrough = False

16: .Superscript = False

17: .Subscript = False

18: .OutlineFont = False

19: .Shadow = False

20: .Underline = xlUnderlineStyleNone

21: .ColorIndex = xlAutomatic

22: .BackGround = xlAutomatic

23: End With

24: End Sub

Рассмотрим код этой процедуры. Оказывается, первым действием, выполненным при записи макроса, было применение метода Add (Добавить) к коллекции Charts(Диаграммы):

Charts.Add

Итак, мы узнали тип созданного объекта и элементов какой коллекции он является. Все остальное в этой процедуре - задание свойств этого объекта и применение к нему методов. ActiveChart (Активная диаграмма) является свойством объекта Application (Приложение), которое возвращает текущую диаграмму. В строке 3 свойству ChartType (Тип диаграммы) присвоено значение xlPie, что в Excel обозначает круговую диаграмму. В следующей строке кода с помощью метода SetSourceData (Установка источника данных) задается диапазон ячеек с данными, на основе которых строится диаграмма. Метод Location (Положение) помещает активную диаграмму в указанный рабочий лист (или на отдельный лист диаграмм, если необходимо). Наконец, метод ApplyDataLabels (Применить подписи данных) выполняет те установки, которые вы сделали в третьем диалоговом окне мастера диаграмм на вкладке Подписи данных.

Далее процедура устанавливает свойства еще одного объекта: объекта ChartTitle (Заголовок диаграммы). Сначала этот объект выбирается (строка 9), затем задаются параметры шрифта заголовка. Отметим, что, хотя на вкладке Шрифт диалогового окна Формат названия диаграммы мы только задали размер шрифта и его начертание, в процедуре представлены все опции этой вкладки (строки 12 - 22).