Chart.SetElement-Methode (Projekt)

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

Hinweise

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

Beispiel

Im folgenden Beispiel werden der Größenachse kleinere Gitternetzlinien und der zweiten Datenreihe Beschriftungsbeschriftungen 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.