Самоучитель VBA


ПХЯ 5 7 Вкладка Заголовки диалогового окна третьего шага работы мастера диаграмм



пХЯ. 5.7.Вкладка Заголовки диалогового окна третьего шага работы мастера диаграмм




ШагЗ

На четвертом шаге работы мастера диаграмм выбирается, строится ли диаграмма как внедренный объект в рабочий лист, или на отдельном листе диаграмм. Для создания диаграммы на отдельном листе выберите переключатель отдельном (As New Sheet), а для создания внедренной диаграммы — переключатель имеющемся (As Object In) (Рисунок 5.8). Выберем переключатель имеющемся (As Object In). Результат выбора не отображается в методе ChartWizard.

Нажатие кнопки Готово (Finish) завершает процесс создания диаграммы. Подытожим произведенные присвоения аргументам метода ChartWizard.

' Добавляется диаграмма в семейство диаграмм на активном

' рабочем листе

'

ActiveSheet.ChartObjects.Add(195, 30, 200, 190). Select

'

' Производится построение диаграммы методом ChartWizard

ActiveChart. ChartWizard Source : =Range ("A1:B11") ,

Gallery:= xlLine, Format :=1, PlotBy:= xlColumns,

CategoryLabels : =1,

SeriesLabels :=0,

HasLegend: =False, Title := "График", CategoryTitle : = "Аргумент",

ValueTitle : ="Функция"

Ту же самую диаграмму, не используя метод ChartWizard, можно построить с помощью следующей последовательности инструкций:

Charts . Add

ActiveChart. ChartType = xlLine

ActiveChart . SetSourceData

Source :=Sheets('ЛИCT3").

Range ( "Bl : Bll" ),

PlotBy : =xlColumns ActiveChart. SeriesCollection (1) .XValues = "=Лист3 !R1C1:R11C1"

ActiveChart .Location Where:=xlLocationAsObject,

Nаmе:="ЛистЗ" With ActiveChart

.HasTitle = True

. ChartTitle. Characters. Text = "График"

.Axes (xlCategory, xlPrimary)

.HasTitle = True .Axes (xlCategory, xlPrimary)

.AxisTitle. Characters. Text = "Аргумент"

.Axes (xlValue, xlPrimary)

.HasTitle = True .Axes (xlValue, xlPrimary)

.AxisTitle. Characters. Text = "Функция"

.HasLegend = False

End With










Начало  Назад  Вперед