Поделиться через


Свойство Project.Index (Project)

Возвращает индекс объекта Project в содержащей коллекции Projects . Только для чтения, Variant.

Синтаксис

expression. Индекс

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

Пример

Если поместить диаграмму Ганта в один индекс коллекции Windows для каждого открытого проекта, можно отобразить диаграмму Ганта в одном проекте, а затем использовать макрос ActivateSameWindowInNextProject , чтобы легко переключиться на диаграммы Ганта других открытых проектов.

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

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

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