Excel VBA リボンを最小化したり、表示したりする

Excel VBAでリボンを最小化したり、最小化を元に戻す（常にリボンを表示する）方法の記録です。

< スポンサーリンク >

リボンの最小化と表示

下記を実行すると、リボンが表示されている場合は最小化され、リボンが最小化されている場合は表示されます。

Sub test()
    CommandBars.ExecuteMso “MinimizeRibbon”
End Sub

リボンが表示されている状態

リボンが最小化されている状態

リボンが最小化されているかどうか判断

リボンが最小化されている時は「リボン最小化」、リボンが表示されている時は「リボン通常」とメッセージで表示してみます。

Sub test2()
    If CommandBars.GetPressedMso(“MinimizeRibbon”) = True Then
        MsgBox “リボン最小化”
    Else
        MsgBox “リボン通常”
    End If
End Sub

リボンが最小化されている状態

リボンが表示されている状態