End With

Вопрос 23

Параметры диаграммы настраиваются при помощи свойств и методов объектов Chart:

• свойство ChartArea — это свойство возвращает одноименный объект ChartArea, который представляет собой область, занимаемую диаграммой и используется для настройки внешнего вида диаграммы (свойства Font, Interior и т.п.). Если необходимо настроить внешний вид не всей диаграммы, а той ее части, которая используется непосредственно для вывода графика, используется схожее свойство PlotArea. По умолчанию диаграмма размещается прямо по центру листа. Если необходимо ее переместить в точно определенное место листа, используются знакомые на свойства Top, Height, Left и Width для объекта ChartArea.

• свойство ChartTitle возвращает одноименный объект, при помощи которого можно настроить заголовок диаграммы (с такими свойствами, как Text, Font, Border и т.п.);

• ChartType — важнейшее свойство, про которое мы уже говорили. Определяет тип диаграммы;

• HasDataTable — если установить это свойство в True, то в нижней части диаграммы (по умолчанию) появится таблица с числами, на основе которых была создана диаграмма. Одновременно будет создан программный объект DataTable, при помощи которого можно настроить представление этой таблицы. Схожим образом действуют свойства HasLegend, HasPivotFields и HasTitle.

• Name — это свойство позволяет настроить имя диаграммы (как название вкладки в Excel). По умолчанию диаграммы называются последовательно "Диаграмма1", "Диаграмма2" и т.п.

• SizeWithWindow — если поставить значение этого свойства в True (по умолчанию False), то размер диаграммы будет подогнан таким образом, чтобы точно соответствовать размеру листа.

• Tab — свойство, о котором мало кто подозревает. Оно позволяет настроить при помощи одноименного объекта внешний вид вкладки в книге Excel для диаграммы (или просто листа). Например, чтобы пометить вкладку зеленым, можно воспользоваться кодом

oChart.Tab.Color = RGB(0, 255, 0)

• Visible — возможность спрятать диаграмму без ее удаления.

• SetSourceData() — важнейший метод, который позволяет определить данные, на основе которых строится диаграмма. Про него мы уже говорили.

• Copy() — позволяет скопировать диаграмму в другое место книги (например, чтобы создать новую диаграмму, использовав в качестве основы существующую). Для переноса существующей диаграммы в другое место можно воспользоваться методами Location() или Move().

Пример:

Private Sub Chart_1() Dim ch As Chart Dim src As Range orange1.Copy Destination:=Worksheets("Ëèñò2").Range("a1") Set src = Worksheets("Ëèñò2").Range("A1").CurrentRegion Set ch = ActiveWorkbook.Charts.Add ch.SetSourceData Source:=src, PlotBy:=xlColumns ch.ChartType = xlColumnClustered 'xlBar xlPie xlcolumn xlpyramid xlLineMarkers ch.HasTitle = True ch.ChartTitle.Caption = "Оклад" ch.SetElement msoElementDataLabelCenter ThisWorkbook.Save End Sub