Método Chart.Delete (Project)

Elimina um gráfico num relatório ativo.

Sintaxe

expressão. Eliminar

expressão Uma variável que representa um objeto Chart.

Valor de retorno

Variant

Exemplo

O exemplo seguinte apresenta um relatório e, em seguida, elimina todos os gráficos no relatório.

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

Confira também

Método Chart ObjectReport.Delete

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.