' 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

Chart 对象 Report.Delete 方法

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈 ，获取有关如何接收支持和提供反馈的指南。