2.7.Построение диаграмм
2.7.1.Построение диаграммы

MS Excel обладает мощным средством — мастером диаграмм, позволяющим создавать различные диаграммы, представляя их в наглядном виде. VBA предоставляет средства как для автоматизации процесса конструирования диаграмм, так и управления ими, добавляя в проекты итеративность и компактность.

 

Для того чтобы построить диаграмму, достаточно воспользоваться методом Add семейства charts, состоящего из объектов chart, инкапсулирующих в себе данные о диаграммах.

 

Add (Before, After, Count)

 

  • Before — необязательный параметр, указывает на лист, перед которым вставляется диаграмма;

  • After — необязательный параметр, задает ссылку на лист, после которого вставляется диаграмма;

  • Countнеобязательный параметр, специфицирует число вставляемых листов.

 Кроме того, надо указать ссылку на тот диапазон, на основе которого диаграмма была построена. Здесь на помощь приходит метод SetSourceData параметр source которого и дает искомую ссылку. Далее, используя большую коллекцию свойств диаграммы, можно задать ее внешний вид. Например, свойство ChartTitle реализует доступ к ее заголовку, данные о котором инкапсулированы в объекте ChartTitle. В частности, его свойство Text позволяет задавать текст заголовка. Но прежде чем работать с заголовком надо установить значение свойства HasTitle объекта chart равным True.

 

 

Пример. На основе табличных данных, размещенных в диапазоне А1:С6 создать диаграмму.


Sub Диаграмма()
Dim с As Chart
Set c = Charts.Add
c.ChartType = xlColumnClustered
c.SetSourceData Source:=Worksheets(1).Range("a1:c6"), PlotBy:=xlColumns
c.HasTitle = True
c.Name = "Продажи"
End Sub

 

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

Свойство ActiveChart объектов Application, Window и Workbook возвращает ссылку на активную диаграмму. Если таковой нет, то оно возвращает значение Nothing.


  
ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map