Project) (Shapes.AddChart 方法

在使用中報表的指定位置建立圖表。 傳回代表圖表的 Shape 物件。

語法

expression。 AddChart (樣式，類型，左側，頂部，寬度，高度，NewLayout)

expression 代表 Shapes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Style 選用 整數 指定圖表的色彩樣式。 這些值對應至功能區 (上 [圖表工具] 底下的 [圖表樣式] 群組上 [設計] 索引標籤上的 [變更色彩] 下拉式清單，但值) 順序不同。
類型 選用 xlChartType 要新增的圖表類型，例如直條圖或圓形圖。
Left 選用 Single 圖表左邊緣的位置，以點為單位。
Top 選用 Single 圖表上邊緣的位置，以點為單位。
Width 選用 Single 圖表的寬度，以點為單位。
Height 選用 Single 圖表的高度，以點為單位。
NewLayout 選用 布林值 NewLayout 不會在 Project 中使用。
Style 選用 INT
類型 選用 XLCHARTTYPE
Left 選用 FLOAT
Top 選用 FLOAT
Width 選用 FLOAT
Height 選用 FLOAT
NewLayout 選用 布林值
名稱 必要/選用 資料類型 描述

傳回值

圖形

範例

下列範例會建立具有橘色長條圖預設橫條圖類型的報表。

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

  • Last updated on