Report.Delete メソッド (Project)
レポートを削除します。
構文
式。削除
式 'Report' オブジェクトを表す変数。
戻り値
Nothing
例
次の例では、 レポート 1 という名前のレポートが存在するかどうかを判断し、存在する場合はレポートを削除します。 レポートがアクティブな場合は、削除する前に別のビューに変更します。それ以外の場合、Project には実行時エラー 1004 が表示されます。 テーブル "Report 1" が使用中であり、コピーまたは削除できません。
Sub DeleteAReport()
Dim reportName As String
reportName = "Report 1"
If ActiveProject.Reports.IsPresent(reportName) Then
' To delete the active report, change to another view.
ViewApplyEx Name:="&Gantt Chart"
ActiveProject.Reports(reportName).Delete
Else
MsgBox Prompt:="No report name: " & reportName, Title:="Report delete error"
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。