【Access】リボンを最小化するマクロ


リボンを最小化する方法です。

たとえばこのようなフォームにボタン(buttonChange)が貼り付けてあるとします。



この「切り替え」ボタンをクリックしたときにリボンの最小化・解除を切り替えるには次のようにします。

Private Sub buttonChange_Click()

    Application.CommandBars.ExecuteMso "MinimizeRibbon"
    
End Sub
リボンを最小化するには、CommandBarsオブジェクトのExecuteMsoメソッドで「MinimizeRibbon」を指定します。ただし、リボンが最小化されてる状態で実行するとリボンが表示されるようになっていますので注意が必要です。その場合は、GetPressedMsoメソッドでリボンの状態を確認するなどしてください。


実行結果









comments powered by Disqus