Microsoft Access Club >Access一日一見 >このページ >次頁 <前項  サイト内検索


ツールバーを非表示にする方法 - Visible プロパティの利用 -



メニューバーとショートカット以外に、ツールバー(下図)というものがあります。これを表示、非表示に切り替えるプロパティが Visibleプロパティです。

ツールバーの見本

メニューバーの名称と状態の把握

まず最初に、ツールバーの名称と状態をDebugプリントに書き出してみましょう。 何れでも利用できるようにFunctionプロシージャを作成します。

Sub SamplePro()

    Dim cbar As Variant

    For Each cbar In CommandBars
        Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
    Next

End Sub
実行結果

イミディエイト画面に以下のような情報が表示されます。

Debugプリント図

メニューバーを全て非表示に切り替える

開かれているメニューバーの把握は上記のプロシージャで容易に把握できますが、下記のプロシージャはツールバーを全て非表示にします。

Sub SamplePro()
    
    Dim cbar As Variant
    Dim strName1 As String
    Dim strName2 As String
    
    strName1 = "Menu Bar"
    strName2 = "ポップアップメニュー"
    
    For Each cbar In CommandBars
    
        If cbar.Visible = True Then
        
            If cbar.Name <> strName1 And cbar.Name <> strName2 Then
                'ツールバーを全て非表示にします。
                Application.CommandBars(cbar.Name).Visible = False
                
            End If
            
        End If
            
    Next

End Sub
解説
  • Visibleプロパティはツールバーにだけ効果が及びますので、Menu Barとポップアップメニューを除外しています。
  • この設定は保存されませんので、次にファイルを開いたときは既定値に戻っています。

関連ページ

2004/01/07

ページの先頭へ 前ページへ戻る

 


ツールバーを非表示にする方法 - Visible プロパティの利用 -


-Microsoft Access Club-

cPanel あるいは PLESKコントロールパネルをインストールした専用レンタルサーバのディスカウントプランを期間限定で公開しています。
cPanel・PLESKコントロールパネルを備えた専用レンタルサーバ....。