Método Project.Activate (Project)

Ativa o projeto.

Sintaxe

expressão. Ativar

Expressão Uma variável que representa um objeto Project .

Exemplo

Os exemplos a seguir ativam, respectivamente, os projetos anterior e seguinte.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.