vba:リボンの最小化

Office2010(2007以降？)で、リボンを最小化・元のサイズに戻す方法。
CommandBars.ExecuteMso "MinimizeRibbon"
このメソッドは最小化と元のサイズをトグルする。

最小化してるかどうかの判定。
CommandBars.GetPressedMso("MinimizeRibbon")
戻り値＝True:最小化、False:元のサイズ

リボンを最小化・元のサイズに戻す関数
パラメータのMinimize＝True:最小化、False:元のサイズ

Sub MinimizeRibbon(Optional Minimize As Boolean = True)
    If Minimize Then
        If Not CommandBars.GetPressedMso("MinimizeRibbon") Then
            CommandBars.ExecuteMso "MinimizeRibbon"
        End If
    Else
        If CommandBars.GetPressedMso("MinimizeRibbon") Then
            CommandBars.ExecuteMso "MinimizeRibbon"
        End If
    End If
End Sub