Chart.Delete メソッド (Project)
アクティブなレポートのグラフを削除します。
構文
式。削除
expression は Chart オブジェクトを表す変数です。
戻り値
バリアント型
例
次の例では、レポートを表示し、レポートのすべてのグラフを削除します。
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
関連項目
Chart オブジェクトReport.Delete メソッド
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。