Chart.Delete-Methode (Project)

Löscht ein Diagramm in einem aktiven Bericht.

Syntax

Ausdruck. Löschen

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

Rückgabewert

Variant

Beispiel

Das folgende Beispiel zeigt einen Bericht an und löscht dann alle Diagramme im Bericht.

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-ObjektReport.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.