Метод Project.Activate (Project)

Активирует проект.

Синтаксис

expression. Активировать

выражение Переменная, представляющая объект Project .

Пример

В следующих примерах активируются следующий и предыдущий проекты соответственно.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.