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