次の方法で共有

Project.Index プロパティ (Project)

  • [アーティクル]

プロジェクト のコレクションが含まれる プロジェクト のオブジェクトのインデックスを取得します。 読み取り専用のバリアント型 (Variant) の値。

構文

式。インデックス

式Project オブジェクトを表す変数。

例

開いたプロジェクトごとに、 Windows コレクションのインデックスが同じで、[ガント チャート] ビューを配置する場合は、1 つのプロジェクトでガント チャートを表示し、 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 のサポートおよびフィードバックを参照してください。