Shapes.AddChart 方法 (專案)

在活躍報告指定位置建立圖表。 回傳一個代表圖表的 Shape 物件。

語法

expression。 AddChart (樣式、類型、左邊、頂部、寬度、高度、新版面)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Style	選用	整數	指定圖表的顏色風格。 這些數值對應於圖表樣式群組中「更換顏色」下拉選單，在設計標籤中，在色帶 (的圖表工具下，但數值的順序並不相同) 。
類型	選用	xlChartType	要加入的圖表類型，例如欄狀圖或圓餅圖。
Left	選用	Single	圖表左邊的位置（以點數計）。
Top	選用	Single	圖表頂端的位置（以點數計）。
Width	選用	Single	圖表的寬度，以點數計算。
Height	選用	Single	圖表高度，以點數計算。
新版面配置	選用	布林值	NewLayout 並未在專案中使用。
Style	選用	抄截
類型	選用	XL圖表類型
Left	選用	浮
Top	選用	浮
Width	選用	浮
Height	選用	浮
新版面配置	選用	布爾
名稱	必要/選用	資料類型	描述

傳回值

圖形

範例

以下範例建立一個報告，預設有橘色條狀圖的條狀圖。

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 支援與意見反應。