【Access】リボンを非表示にするマクロ

リボンは最小化するだけじゃなく非表示にすることも出来ます。
リボンを非表示にすればウィンドウが広く使え、見た目にもすっきりします。

例

下記は、フォーム読み込み時にリボンを非表示にしています。

1 2 3 4 5

Private Sub Form_Load()       DoCmd.ShowToolbar "Ribbon", acToolbarNo   End Sub

ShowToolbarメソッドの第１引数に"Ribbon"、第２引数にacToolbarNoを指定すれば非表示、acToolbarYesを指定すれば表示になります。


実行結果

表示／非表示を切り替え

次に、リボンの表示／非表示を切り替えてみたいと思います。
一度リボンを非表示にしてしまうと表示する手段が無くなってしまいますので、ボタンなどで表示／非表示を切り替えられるようにしておくといろいろ便利だったりします。



このようなフォームに貼り付けてあるボタン（buttonChange）をクリックした際に切り替えてみたいと思います。

1 2 3 4 5 6 7 8 9 10 11

Private Sub buttonChange_Click()       If Application.CommandBars("Ribbon").Visible Then         '非表示         DoCmd.ShowToolbar "Ribbon", acToolbarNo     Else         '表示         DoCmd.ShowToolbar "Ribbon", acToolbarYes     End If       End Sub

CommandBars("Ribbon").Visible = True のときは非表示、Falseのときは表示するようにしています。


実行結果

スポンサーリンク

https://hosopro.blogspot.com/2017/12/access-vba-show-toolbar.html 【Access】リボンを非表示にするマクロ