次の方法で共有

Project.Open イベント (Project)

  • [アーティクル]

プロジェクトが開くとき、ただし、Activate イベントの前に発生します。

構文

式。Open (pj)

式Project オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
pj 必須 Project 開かれるプロジェクトです。

戻り値

Nothing

注釈

プロジェクトが別のドキュメントまたはアプリケーションに埋め込まれている場合、プロジェクト イベントは発生しません。

例

この例はユーザーの電子メール エイリアスと現在の日付プロジェクトの [ コメント ] フィールドに、プロジェクトを開くたびにします。 プロジェクトの Open イベントに次の使用例を配置するファイルのアクセス履歴を提供します。

Private Sub Project_Open(ByVal pj As MSProject.Project) 
    Dim Alias As String 
 
    Alias = InputBox$("Please enter your email alias: ") 
    pj.ProjectSummaryTask.AppendNotes vbCrLf & "Opened by " & Alias & _
        " on " & Date$ & "." 
End Sub

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

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