Office関連

マクロでリボンを最小化する。

mougの回答用に書いたコードです。
忘れないうちにメモ。

・リボンの最小化、最大化について
http://www.moug.net/faq/viewtopic.php?t=66073

Option Explicit

Private Sub MinimizeRibbon()
'リボン最小化(Office 2010以降で動作)
  If Application.CommandBars.GetPressedMso("MinimizeRibbon") = False Then _
  Application.CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

Private Sub UnMinimizeRibbon()
'リボン最小化解除(Office 2010以降で動作)
  If Application.CommandBars.GetPressedMso("MinimizeRibbon") = True Then _
  Application.CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

ExecuteMsoメソッドで「リボンの最小化」(MinimizeRibbon)コマンドを呼び出しているのですが、このコマンドは2007にはありませんので、上記コードも2010以降にのみ対応しています。

関連記事

  1. Office アドイン

    Ignite 2016で発表されたOffice アドイン関連の情報

    米国時間の9月26~30日にMicrosoftのビッグイベント「Ign…

  2. Office関連

    ノートを削除するPowerPointマクロ

    下記のコードは「Remove Notes Pages in Power…

  3. Office アドイン

    [Office用アプリ]法人登録する際の参考資料

    法人としてMicrosoft Seller DashboardでOff…

  4. Office関連

    [Wordマクロ]PrintOutメソッド実行時に「型が一致しません」との実行時エラーが発生する。

    Wordマクロで文書を印刷するときはPrintOutメソッドをよく使い…

コメント

    • MukkuMuku
    • 2013年 4月 10日

    なぜだかわからないけど、GetPressedMso で取れないものと思い込んでた。
    2007には”MinimizeRibbon”がないっていうことですよね。

  1. 私もGetPressedMsoの存在をすっかり忘れていましたが、普通に使えました(^^)

    > 2007には”MinimizeRibbon”がないっていうことですよね。

    はい。
    「リボンの最小化」ボタンは2010で追加された機能なので、2007でマクロから最小化する場合はちょっと面倒くさくなります(^^;

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP