通过

Project) (Project.Index 属性

  • 项目

获取包含 项目 集合中的 项目 对象的索引。 只读变体。

语法

表达式。指数

表达 一个代表 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。