Application.ProjectBeforeClearBaseline イベント (Project)
基準計画が消去される前に発生します。 EventInfo オブジェクト パラメーターを使用します。
構文
式。 ProjectBeforeClearBaseline( _pj_, _Interim_, _bl_, _InterimFrom_, _AllTasks_, _Info_ )
expressionApplication オブジェクトを 表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| pj | 必須 | Project | 非アクティブになっているウィンドウに表示されるプロジェクトです。 |
| Interim | 必須 | ブール型 (Boolean) | True の 中間基準計画が消去される場合です。 False を指定 する基準計画全体が消去される場合。 |
| bl | 必須 | PjBaselines | [基準計画をクリアしています。 PjBaselines 定数は、次のいずれか: pjBaseline 、 pjBaseline1 、 pjBaseline2 、 pjBaseline3 、 pjBaseline4 、 pjBaseline5 、 pjBaseline6 、 pjBaseline7 、 pjBaseline8 、 pjBaseline9 、または pjBaseline10 。 |
| InterimFrom | 必須 | PjSaveBaselineTo | 消去される中間基準計画です。 PjSaveBaselineTo 定数は、次のいずれか: pjIntoBaseline 、 pjIntoBaseline1 、 pjIntoBaseline2 、 pjIntoBaseline3 、 pjIntoBaseline4 、 pjIntoBaseline5 、 pjIntoBaseline6 、 pjIntoBaseline7 、 pjIntoBaseline8 、 pjIntoBaseline9 、 pjIntoBaseline10 、 pjIntoStart_Finish1 、 pjIntoStart_Finish2 、 pjIntoStart_Finish3 、 pjIntoStart_Finish4 、 pjIntoStart_Finish5 、 pjIntoStart_Finish6 、 pjIntoStart_Finish7 、 pjIntoStart_Finish8 、 pjIntoStart_Finish9 、または pjIntoStart_Finish10 。 |
| AllTasks | 必須 | ブール型 (Boolean) | True プロジェクト全体を消去する場合です。 |
| Info | 必須 | EventInfo | イベントが発生したとき、EventInfo.Cancel は False です。 イベント プロシージャでこの引数に True を設定する場合、基準計画は消去されません。 |
戻り値
Nothing
注釈
プロジェクトが別のドキュメントまたはアプリケーションに埋め込まれている場合、プロジェクト イベントは発生しません。
例
次の例は、プロジェクト計画で基準計画の消去が実行されることを知らせるメッセージ ボックスを、ユーザーに対して表示します。 メッセージ ボックスには、消去される基準計画 (0 から 10)、プロジェクトのファイル名、および中間計画が消去されるかどうか (True または False) が示されます。
- クラス モジュールを新しく作成し、次のコードを挿入します。
Public WithEvents pApp As MSProject.Application
Private Sub pApp_ProjectBeforeClearBaseline(ByVal pj As Project, _
ByVal Interim As Boolean, ByVal bl As PjBaselines, _
ByVal InterimFrom As PjSaveBaselineTo, _
ByVal AllTasks As Boolean, ByVal Info As EventInfo)
MsgBox "Click OK to clear the baseline for the following " _
& "project:" & vbCrLf & "Baseline: " & CStr(bl) _
& vbCrLf & "Project: " & pj.Name & vbCrLf _
& "Clear interim plan: " & CStr(Interim)
End Sub
- 他のモジュールで、次のコードを挿入します。
Public X As New Class1
Sub RunMacros()
Set X.pApp = MSProject.Application
End Sub
RunMacros プロシージャを実行し、イベントのリッスンを開始します。
[ツール] メニューの [進捗管理] をポイントし、[基準計画のクリア] をクリックします。基準計画が消去されるたびに、イベントによってメッセージ ボックスが表示されます。
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。