Работа с диаграммами (объект Chart).
Диаграммы в Excel создаются при помощи объекта Chart. Объявление объекта:
Dim oChart As Chart
Создание диаграммы производится при помощи метода Add() коллекции Charts:
Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet)
В принципе, диаграмма уже создана, но поскольку никакие ее свойства не определены, она выглядит как пустой лист. Чтобы она обрела содержание, необходимо выполнить еще несколько действий.
Первое (и единственное обязательное действие) определить источник данных для диаграммы, для чего предназначен метод SetSourceData(). В качестве источника может выступать только объект Range (он передается в качестве первого и единственного обязательного параметра этого метода). Второй параметр (необязательный) определяет, в каком порядке считывать данные - сначала по столбцам, потом по строкам или наоборот
oChart.SetSourceData Sheets("Лист1").Range("A1:A10")
Диаграмма создана, значения остальных параметров будут приняты по умолчанию. Однако на практике нужно определить еще хотя бы тип диаграммы Для этой цели используется свойство ChartType, для которого разработчиками предусмотрено 73 значения. Обычный график строится с использованием оператора:
oChart.ChartType = xlLineMarkers
Еще одна очень распространенная задача - добавить дополнительные ряды на диаграмму. Для этой цели необходимо создать и получить ссылку на объект Series - ряд, а потом для ряда определить свойство Values (ему передается в качестве значения объект Range):
Dim oSeries As Series
Set oSeries = oChart.SeriesCollection.NewSeries
oSeries.Values = Worksheets(1).Range("B1:B10")
Остальные многочисленные параметры диаграммы настраиваются при помощи свойств и методов объектов Chart.
Табулирование функции и построение графика.
Дано: xn - начальное значение в А1,
xk – конечное значение аргумента в В1,
dx – шаг в С1 и функция
Построить таблицу значений функции и график.
Sub tabul()
Dim xn, xk, x, y, dx As Currency : Dim n As Integer
xn = Range("A1").Cells : xk = Range("B1").Cells
dx = Range("C1").Cells
Range("A2").Cells = "x" : Range("B2").Cells = "y"
Range("A1:C26").Select
Selection.NumberFormat = "0.00": n = 2
For x = xn To xk Step dx: n = n + 1
If x < 0.3 * xk Then: y = Cos(x): Else
If x <= 0.65 * xk Then: y = 2.5 * Exp(Cos(x))
Else: y = Sin(Sqr(x)) + 1.2: End If: End If
Range("A" & Format(n,"###0")).Cells =x
Range("B" & Format(n,"###0")).Cells =y: Next
Range("A2:B"&Format(n,"###0")).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("$A$2:$B$" & Format(n, "###0"))
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers : End Sub