Shapes.AddChart メソッド (Project)

作業中のレポートの指定した場所にグラフを作成します。 グラフを表す Shape オブジェクトを返します。

構文

式。 AddChart(Style,Type,Left,Top,Width,Height,NewLayout)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前	必須 / オプション	データ型	説明
Style	省略可能	Integer	グラフの色のスタイルを指定します。 値は、[グラフ スタイル] グループの [デザイン] タブの [グラフ ツール] のリボンの [色の変更] ドロップダウン リストに対応します (ただし、値は同じ順序ではありません)。
Type	省略可能	xlChartType	縦棒グラフや円グラフなど、追加するグラフの種類。
Left	省略可能	Single	グラフの左端の位置をポイント単位で測定します。
Top	省略可能	Single	グラフの上端の位置をポイント単位で測定します。
Width	オプション	Single	ポイント単位で測定されたグラフの幅。
Height	オプション	Single	ポイント単位で測定されたグラフの高さ。
NewLayout	省略可能	Boolean	NewLayout は Project では使用されません。
スタイル	省略可能	INT
Type	省略可能	XLCHARTTYPE
Left	省略可能	FLOAT
Top	省略可能	FLOAT
Width	オプション	FLOAT
Height	オプション	FLOAT
NewLayout	省略可能	Bool
名前	必須 / オプション	データ型	説明

戻り値

図形

例

次の例では、オレンジ色の棒グラフの既定の棒グラフの種類を持つレポートを作成します。

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 のサポートおよびフィードバックを参照してください。