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.