Shapes.AddChart メソッド (Project)

アクティブなレポートの指定した位置にグラフを作成します。 グラフを表す Shape オブジェクトを返します。

構文

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

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

パラメーター

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

関連項目

図形オブジェクト 図形オブジェクト グラフ オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on