Page 75 - 6735

ActiveChart.ChartType = xlXYScatterSmooth 'тип діаграми
ActiveChart.SetSourceData
Source:=Sheets("Лист1").Range("A1:B6"), PlotBy:= _
xlColumns 'дані для діаграми
ActiveChart.Location Where:=xlLocationAsObject,
Name:="Лист1" 'розміщення
With ActiveChart 'з активною діаграмою
.HasTitle = True 'має заголовок
.ChartTitle.Characters.Text = "Графік" 'надпис
заголовка
.Axes(xlCategory, xlPrimary).HasTitle = True 'має
надпис осі категорій
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text
= "x" 'надпис
.Axes(xlValue, xlPrimary).HasTitle = True 'має надпис
осі значень
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text =
"y" 'надпис
'додати криву регресії, її рівняння, та величину
достовірності апроксимації
.SeriesCollection(1).Trendlines.Add
Type:=xlLogarithmic, _
DisplayEquation:=True, DisplayRSquared:=True
End With
End Sub

Рисунок 3.1 – Діаграма Excel

Об’єктна модель Word
75