Chart.SetElement メソッド (Project)

指定した要素をグラフまたはグラフ上の選択したオブジェクトに追加します。

構文

expression。 SetElement (RHS)

expression は Chart オブジェクトを表す変数です。

パラメーター

戻り値

Nothing

解説

SetElement メソッドの RHS 値は、[グラフ要素の追加] サブメニューの項目に対応します。 グラフの種類に応じて、さまざまな項目が有効になります。 特定のグラフに存在しない要素を追加しようとすると、指定されていないエラーが発生します。 たとえば、3D グラフでは、[グラフ要素の追加] ドロップダウン リストの [エラー バー] 項目は使用できません。 を Chart.SetElement msoElementErrorBarStandardDeviation 呼び出すとエラーが発生します。

例

次の例では、値軸に補助目盛線を追加し、2 番目のデータ系列にデータ ラベル吹き出しを追加します。

Sub TestSetElements()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple 3D chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    With chartShape.Chart
        .SetElement msoElementChartTitleAboveChart
        
        ' Select the major gridlines on the value axis, and then add minor gridlines.
        .axes(Office.xlValue).MajorGridlines.Select
        .SetElement msoElementPrimaryCategoryGridLinesMinor
        
        ' Select the second data series and add data label callouts.
        If .SeriesCollection.Count > 1 Then
            .SeriesCollection(2).Select
            .SetElement msoElementDataLabelCallout
        End If
    End With
End Sub

関連項目

Chart オブジェクト

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

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