Chart.SetElement method (Project)

Fügt das angegebene Element einem Diagramm oder einem ausgewählten Objekt in einem Diagramm hinzu.

Syntax

Ausdruck. SetElement(RHS)

Ausdruck: Eine Variable, die ein Chart-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
RHS	Erforderlich	MsoChartElementType	Eine der Enumerationskonstanten für den hinzuzufügenden Diagrammelementtyp.

Rückgabewert

Nothing

HinwBemerkungeneise

Der RHS-Wert für die SetElement-Methode entspricht Elementen im Untermenü Diagrammelement hinzufügen . Je nach Diagrammtyp sind verschiedene Elemente aktiviert. Wenn Sie versuchen, ein Element hinzuzufügen, das für ein bestimmtes Diagramm nicht vorhanden ist, erhalten Sie einen nicht angegebenen Fehler. In einem 3D-Diagramm ist beispielsweise das Element Fehlerindikatoren in der Dropdownliste Diagrammelement hinzufügen nicht verfügbar. Ein Aufruf von führt zu Chart.SetElement msoElementErrorBarStandardDeviation einem Fehler.

Beispiel

Im folgenden Beispiel werden der Größenachse neben Gitternetzlinien und der zweiten Datenreihe Beschriftungen mit Datenbeschriftungen hinzugefügt.

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

Siehe auch

Chart-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.