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

関連項目

Report オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。