次の方法で共有

ナビゲーション ウィンドウでモジュールの列挙、表示、非表示、配置を行う

  • [アーティクル]

Microsoft Outlook の NavigationPane オブジェクトの NavigationModules プロパティを使用すると、ナビゲーション ウィンドウに含まれるナビゲーション モジュールにアクセスできます。 Item メソッドは NavigationModules コレクションの既定のプロパティとインデクサー プロパティの両方であるため、Item メソッドを使用して、コレクションに含まれる NavigationModule オブジェクトを列挙します。 CurrentModule プロパティは、ナビゲーション ウィンドウで現在選択されている NavigationModule オブジェクトを決定します。

また、各 NavigationModule オブジェクトには、ナビゲーション ウィンドウに含まれるモジュールの表示と非表示を切り替えたり表示位置を変更したりするために使用できるプロパティがいくつか用意されています。

  • Visible プロパティは、ナビゲーション ウィンドウに NavigationModule オブジェクトを表示するかどうかを決定します。

  • Position プロパティは、ナビゲーション ウィンドウに NavigationModule オブジェクトを表示するときの位置を決定します。

NavigationPane オブジェクトの DisplayedModuleCount プロパティは、ナビゲーション ウィンドウで表示できる表示される NavigationModule オブジェクトの数を決定します。 NavigationModule オブジェクトの Visible プロパティが False に設定されている場合や、NavigationModule オブジェクトの Position プロパティがナビゲーション ウィンドウに表示できる可視 NavigationModule オブジェクトの数を超える値に設定されている場合、そのモジュールは表示されません。 Microsoft Visual Basic for Applications (VBA) の次のコード サンプルは、 および MakeAllModulesVisible プロシージャでMoveCurrentModuleToTop構成されています。 プロシージャではMoveCurrentModuleToTop、NavigationPane オブジェクトの CurrentModule プロパティを使用して現在選択されている NavigationModule オブジェクトを取得し、その NavigationModule オブジェクトの Position プロパティを 1 に設定し、ナビゲーション ウィンドウで一番上に表示されるモジュールにします。 このプロシージャはMoveCurrentModuleToTop、NavigationPane オブジェクトの Modules コレクションを列挙し、コレクションに含まれる各 NavigationModule オブジェクトの Visible プロパティを True に設定します。 最後に、NavigationPane オブジェクトの DisplayedModuleCount プロパティを NavigationPane オブジェクトの NavigationModules コレクションの Count プロパティの値に設定し、ナビゲーション ウィンドウに含まれるすべてのナビゲーション モジュールがユーザーに表示されるようにします。

Private Sub MoveCurrentModuleToTop() 
 
 Dim objPane As NavigationPane 
 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
 
 ' Set the Position property of the currently selected 
 ' module to 1, making it the topmost module displayed 
 ' in the Navigation Pane. 
 objPane.CurrentModule.Position = 1 
End Sub 
 
Private Sub MakeAllModulesVisible() 
 
 Dim objPane As NavigationPane 
 Dim objModule As NavigationModule 
 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
 
 ' This loop enumerates through the Modules collection, 
 ' setting the Visible property of each module to True. 
 For Each objModule In objPane.Modules 
 objModule.Visible = True 
 Next 
 
 ' Set the DisplayedModuleCount property to 
 ' display all modules contained by the 
 ' Navigation Pane. 
 objPane.DisplayedModuleCount = objPane.Modules.count 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。