Dim a As Axis

End With

End With

End With

ü Axes – семейство всех осей диаграммы. Обращаясь к отдельно взятой оси как к элементу семейства по порядковому номеру, можно получить доступ к каждой оси.

ü ThickLabels – содержится в Axex и предоставляет возможность задавать формат чисел, шрифт, выравнивание меток. Пусть требуется отформатировать подписи всех осей существующей диаграммы. Для этого целесообразно использовать цикл For-Each.

For Each a In ActiveChart.Axes

With a.TickLabels.Font

.Size = 8

.Italic = True

.Color = RGB(100, 100, 100)

End With

Next

ü СhartArea – прямоугольник, в котором содержится вся область диаграммы. Зададим в качестве заливки для области диаграммы градиентную заливку от центка с выбранной заготовкой:

ActiveChart.ChartArea.Fill.PresetGradient Style:=msoGradientFromCenter, Variant:=2, _

PresetGradientType:=msoGradientDaybreak

Selection.Fill.Visible = True

ü PlotArea – область построения диаграммы. Сделаем область построения диаграммы прозрачной :

ActiveChart.PlotArea.Select

Selection.Interior.ColorIndex = xlNone

ü Rotation – задает угол поворота для трехмерных диаграмм. Угол задается целым числом от 0 до 360.

ActiveChart.Rotation = 90

ü DataTable – позволяет вставлять таблицу исходных данных внутрь диаграммы;

ü OleObjects – позволяет добавлять элементы управления в диаграмму, расположенную на отдельном листе.

Часто требуется построить диаграмму по данным расположенным в сводной таблице. В этом случае необходимо обратиться к построенной сводной таблице, удалить из нее общие итоги и в качестве исходных данных взять ячейки, содержащие нужные области сводной таблицы. Например:

Worksheets(“Лист2”).PivotTables(“Сводная”).TableRange2

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

Лекция №8.

Дата добавления: 2014-01-04