Propriedade Project.Index (Project)

Obtém o índice de um objeto Project na coleção de projetos que o contém. Somente leitura Variant.

Sintaxe

expressão. Índice

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

Exemplo

Se você colocar um gráfico de Gantt no mesmo índice da coleção Windows para cada projeto aberto, você pode exibir um gráfico de Gantt em um projeto e, em seguida, use a macro ActivateSameWindowInNextProject para alternar facilmente para os gráficos de Gantt dos outros projetos abertos.

Sub ActivateSameWindowInNextProject() 
 
 ' Check for a next project. 
 If ActiveProject.Index = Application.Projects.Count Then 
 MsgBox("No more open projects") 
 ' Check for an equivalent window in the next project. 
 ElseIf ActiveProject.Windows.ActiveWindow.Index > Projects(ActiveProject.Index + 1).Windows.Count Then 
 MsgBox("No equivalent window in the next project") 
 ' If everything's okay, switch to the window in the next project. 
 Else 
 Projects(ActiveProject.Index + 1).Windows(ActiveWindow.Index).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.