Shapes.AddChart метод (Project)

Создает диаграмму в указанном месте активного отчета. Возвращает объект Shape , представляющий диаграмму.

Синтаксис

выражение. AddChart (Стиль,Тип,Левый,Верхний,Ширина,Высота,НовыйМакет)

выражение: переменная, представляющая объект Shapes.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Style	Необязательный	Integer	Определяет цветовой стиль диаграммы. Значения соответствуют раскрывающемуся списку "Изменение цветов " в группе "Стили диаграмм" на вкладке "Конструктор " в разделе "Работа с диаграммами " на ленте (но значения расположены в другом порядке).
Type	Необязательный	xlChartType	Тип добавляемой диаграммы, например гистограмма или круговая диаграмма.
Left	Необязательный	Single	Положение левого края диаграммы (в точках).
Top	Необязательный	Single	Положение верхнего края диаграммы (в пунктах).
Width	Необязательно	Single	Ширина диаграммы (в точках).
Height	Необязательно	Single	Высота диаграммы (в точках).
Новыймакет	Необязательный	Логический	Параметр NewLayout не используется в Project.
Style	Необязательный	INT
Type	Необязательный	XLCHARTTYPE
Left	Необязательный	FLOAT
Top	Необязательный	FLOAT
Width	Необязательный	FLOAT
Height	Необязательный	FLOAT
Новыймакет	Необязательный	BOOL
Имя	Обязательный или необязательный	Тип данных	Описание

Возвращаемое значение

Shape

Пример

В следующем примере создается отчет с линейчатой диаграммой типа по умолчанию с оранжевыми столбцами.

Sub AddDefaultChart()
    Dim chartReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Test chart report"
    Set chartReport = ActiveProject.Reports.Add(reportName)

    ' Add a chart.
    Dim chartShape As shape
    Set chartShape = ActiveProject.Reports(reportName).Shapes.AddChart(Style:=12)
    
    With chartShape
        .Chart.SetElement msoElementChartTitleAboveChart
        .Chart.ChartTitle.Text = "Test Chart"
    End With
End Sub

См. также

Фигура, объект,фигура, объект, диаграмма

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.