Partager via

Propriété Project.Index (Project)

  • Article

Obtient l’index d’un objet Project dans la collection Projects dans laquelle il se trouve. Variant en lecture seule.

Syntaxe

expression. Index

Expression Variable qui représente un objet Project .

Exemple

Si vous placez un diagramme de Gantt dans le même index de la collection Windows pour chaque projet ouvert, vous pouvez afficher un diagramme de Gantt dans un projet, puis utiliser la macro ActivateSameWindowInNextProject pour basculer facilement vers les diagrammes de Gantt des autres projets ouverts.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.