Chart.Delete-Methode (Project)

Löscht ein Diagramm in einem aktiven Bericht.

Syntax

Ausdruck.Delete

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

Rückgabewert

Variant

Beispiel

Im folgenden Beispiel wird ein Bericht angezeigt und dann alle Diagramme im Bericht gelöscht.

Sub DeleteCharts()
    Dim chartReport As Report
    Dim chartShape As Shape
    Dim reportName As String
    
    ' Display a report.
    reportName = "Chart Report 1"
    Set chartReport = ActiveProject.Reports(reportName)
    chartReport.Apply
    
    ' Delete every chart on the report.
    For Each chartShape In chartReport.Shapes
        If chartShape.Type = msoChart Then
            Debug.Print "Deleting chart: '" & chartShape.Name _
                & "' from report: " & reportName
            chartShape.Delete
        End If
    Next chartShape
End Sub

Siehe auch

Chart ObjectReport.Delete-Methode

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.