Freigeben über

Project.Index property (Project)

  • Artikel

Ruft den Index des Project -Objekts in der enthaltenden Projects -Auflistung ab. Schreibgeschützter Variant-Wert.

Syntax

Ausdruck. Index

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

Beispiel

Wenn Sie einem Gantt-Diagramm in der gleichen Index der Windows -Auflistung für jedes geöffnete Projekt einfügen, können einem Gantt-Diagramm in einem Projekt anzeigen und dann mithilfe der ActivateSameWindowInNextProject Makros bequem zu den Balkendiagrammen der anderen geöffneten Projekte wechseln.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.