2014年02月05日

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
posted by 忘却の達人 at 22:53| Comment(0) | TrackBack(0) | vba | このブログの読者になる | 更新情報をチェックする

広告


この広告は60日以上更新がないブログに表示がされております。

以下のいずれかの方法で非表示にすることが可能です。

・記事の投稿、編集をおこなう
・マイブログの【設定】 > 【広告設定】 より、「60日間更新が無い場合」 の 「広告を表示しない」にチェックを入れて保存する。