通过

Project.Activate Method

  • 项目
Project Developer Reference

Activates the object, making this project the active project.

Syntax

expression.Activate

expression   A variable that represents a Project object.

Example
The following examples activate the next and previous projects, respectively.

Visual Basic for Applications 
  Sub ProjectNext()
    If ActiveProject.Index < Projects.Count Then
        Projects(ActiveProject.Index + 1).Activate
    Else
        Projects(1).Activate
    End If
End Sub

Sub ProjectPrevious()
If ActiveProject.Index > 1 Then
Projects(ActiveProject.Index - 1).Activate
Else
Projects(Projects.Count).Activate
End If
End Sub

See Also