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