Project.Index 屬性 (Project)

取得 Project 物件的索引中包含 Projects 集合。 唯讀 Variant 。

語法

運算式。指數

表達 代表 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 支援與意見反應。