通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。