Метод Shapes.AddChart (Project)

Статья
04/07/2023

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

Синтаксис

выражение. AddChart (Style,Type,Left,Top,Width,Height,NewLayout)

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

Параметры

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

Поделиться через