HOME>TOP>アプリケーション

ツールバーを非表示にするには?


キーワード>>CommandBars・Visible・隠す

Point :ツールバーを非表示にしたい。

Sub Test()
 Dim i, p(50), ToolCount

  With Application
      MsgBox "ツールバーを非表示にします。"

    ToolCount = 0
    'カウンター変数の初期化

   For i = .CommandBars.Count To 2 Step -1

     If .CommandBars(i).Visible = True Then
       ToolCount = ToolCount + 1
       ' カウンター変数1UP

         p(ToolCount) = i

        .CommandBars(i).Visible = False
      '表示されていたら配列pにインデックスを書き込んで
      'そのコマンドバーを非表示にする。

     End If
   Next i


   MsgBox "ツールバーを元に戻します。"

   For i = 1 To ToolCount

     .CommandBars(p(i)).Visible = True
       '配列pに書き込まれたインデックスを読み込んで
       'そのコマンドバーを表示する。
   Next i

  End With
End Sub

※手作業でのやり方は・・
表示⇒ツールバー⇒ユーザー設定で目的のツールバーのチェックをはずします。


掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。