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関連

    日本語の文法上の誤りを列挙して修正候補をコメントとして追加するWordマクロ

    前回の記事の関連で、今度は日本語の文法上の誤りを列挙して修正候補をコメ…

  2. Office関連

    テキストボックスの中にある表を操作するWordマクロ

    Yahoo!知恵袋で、「Wordマクロでテキストボックスの中にある表の…

  3. Office アドイン

    [Office用アプリ]第一回 Apps for Office 勉強会で登壇しました。

    19日(金)に第一回 Apps for Office 勉強会が東京で開…

  4. Office関連

    Visio Onlineで図の作成・編集ができるようになりました。

    しばらくVisio Onlineを使っていなかったので気が付かなかった…

  5. Office関連

    図形の結合を行うPowerPoint マクロ(ExecuteMsoメソッド編)

    Excel MVPの伊藤さんのブログで、PowerPointの「図形の…

コメント

    • 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