Share via


Chart.ApplyCustomType メソッド (Project)

カスタム グラフの種類をグラフに適用します。

構文

ApplyCustomType(ChartType,TypeName)

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

パラメーター

名前 必須 / オプション データ型 説明
ChartType 必須 Office.XlChartType グラフの種類です。
TypeName オプション バリアント型 グラフの種類の名前。
ChartType 必須 XLCHARTTYPE
TypeName オプション バリアント型

戻り値

Nothing

次の例では、グラフの種類をクラスター化された 3D 横棒グラフに変更します。

Sub SetChartType()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    Debug.Print "Chart type before: " & chartShape.Chart.ChartType
    chartShape.Chart.ApplyCustomType (xl3DBarClustered)
    Debug.Print "Chart type after: " & chartShape.Chart.ChartType
End Sub

関連項目

Chart オブジェクト

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

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