Shapes.AddChart 方法 (Project)

在活动报表的指定位置创建图表。 返回一个 代表 图表的 Shape 对象。

语法

expression。 AddChart (样式，类型，左侧，顶部，宽度，高度，NewLayout)

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
样式	可选	Integer	指定图表的颜色样式。 值对应于功能区上“图表样式”组的“设计”选项卡上的“图表工具”下的“更改颜色”下拉列表 (但值) 的顺序不同。
Type	可选	xlChartType	要添加的图表类型，例如柱形图或饼图。
Left	可选	Single	图表左边缘的位置（以磅为单位）。
Top	可选	Single	图表上边缘的位置（以磅为单位）。
Width	可选	Single	图表的宽度，以磅为单位。
Height	可选	Single	图表的高度，以磅为单位。
NewLayout	可选	Boolean	Project 中未使用 NewLayout。
样式	可选	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

另请参阅

Shapes 对象形状 对象图表 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。