Application.CompareProjectVersions メソッド (Project)

[ プロジェクトのバージョン比較] ダイアログ ボックスを表示して、2 つのプロジェクトのバージョンを比較します。

構文

式。 CompareProjectVersions

式Application オブジェクトを返す式。

戻り値

ブール型 (Boolean)

注釈

CompareProjectVersions メソッドは、 プロジェクトの比較レポート] リボンの [ プロジェクト] タブのコマンドに相当します。 (かどうか相違点の列が表示されます) など、プロジェクトの比較機能をプログラムで制御する場合は、 CreateComparisonReport メソッドを使用します。

例

次の例では、 CompareProjectVersions メソッドを呼び出す前に、プロジェクトが開いているかどうかを確認します。 プロジェクトが開いている場合は、あるかどうかのタスクまたはプロジェクト内のリソースのいずれかのメソッドを呼び出す前に、コードをチェックします。

Sub CompareVersions () 
    If Projects.Count = 0 Then 
        MsgBox "You must have at least one project open before you can compare projects." 
    Exit Sub 
 
    ElseIf ActiveProject.Tasks.Count = 0 Then 
        If ActiveProject.ResourceCount = 0 Then 
            MsgBox "There are no task or resources in the current project." & vbCrLf & _ 
                "Open a project with either tasks or resources before creating a comparison report.", _ 
                vbInformation 
            Exit Sub 
        End If 
    End If 
 
    CompareProjectVersions 
End Sub

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

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