通过

Project.Open Event

  • 项目
Project Developer Reference

Occurs when the project opens, but before the Activate event.

Syntax

expression.Open(pj, )

expression   A variable that represents a Project object.

Parameters

Name Required/Optional Data Type Description
pj Required Project The project that was opened.

Return Value
nothing

Remarks
Project events do not occur when the project is embedded in another document or application.

Example

This example adds the user's e-mail alias and the current date to a project's Comments field whenever it is opened. Placing this example in the Open event of a project would provide a simple access history for the file.

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

See Also