通过

Application.ActiveProject Property (Project)

  • 项目

Gets a Project object that represents the active project. Read-only Project.

Syntax

expression .ActiveProject

expression A variable that represents an Application object.

Example

The following example adds the date and time to the Comments field in the project Properties dialog box and then saves the project.

Sub SaveAndNoteTime() 
 ActiveProject.ProjectNotes = ActiveProject.ProjectNotes & vbCrLf _ 
 & "This project was last saved on " & Date$ & " at " & Time$ & "." 
 FileSave 
End Sub