Chart.ApplyLayout メソッド (Project)

選択したグラフに、指定したグラフ レイアウトとグラフの種類を適用します。

構文

expressionApplyLayout(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

関連項目

Chart オブジェクト

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

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