選択したグラフに、指定したグラフ レイアウトとグラフの種類を適用します。
構文
expression。
ApplyLayout(Layout,varChartType)
式 は Chart オブジェクトを表す変数です。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Layout | 必須 | Long | レイアウトの種類を指定します。値はリボンの クイック レイアウト 項目に対応します。 |
| varChartType | 省略可能 | バリアント型 (Variant) | Office.XlChartType 定数のいずれかを指定できます。 |
| Layout | 必須 | INT32 | |
| varChartType | 省略可能 | バリアント型 (Variant) |
戻り値
Nothing
注釈
レポート内のグラフを選択すると、[クイック レイアウト] ドロップダウン リストがリボンの [グラフ ツール] の下の [デザイン] タブに表示されます。 同じリボン タブの [ グラフの種類の変更 ] コマンドを使用して、グラフの種類を手動で変更できます。
現在のグラフの種類でレイアウトを使用する場合、 レイアウト パラメーターは、[ クイック レイアウト ] ドロップダウン リストの項目数に制限されます。 varChartType パラメーターを使用すると、別のグラフの種類のレイアウトを現在のグラフに適用できます。 たとえば、折れ線グラフで使用できるレイアウトを棒グラフに適用できます。 ApplyLayout メソッドは、縦棒グラフの種類でも使用できる折れ線グラフ要素のみを追加します。
例
次の例では、折れ線グラフの クイック レイアウト アイテム番号 12 を、選択したグラフに適用します。
Sub SetChartLayout()
Dim chartShape As Shape
Dim reportName As String
reportName = "Simple scalar chart"
Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
chartShape.Chart.ApplyLayout Layout:=12, varChartType:=Office.XlChartType.xlLine
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。