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

    Office365APIEditorでMicrosoft Graph APIを手軽に呼び出し!

    下記Tech Communityの記事で、Microsoftのエンジニ…

  2. Office関連

    Office 2013 オンラインヘルプのリンクを集めてみました。

    新機能を把握するためにはヘルプを見るのが一番早い、というわけでOffi…

  3. Office関連

    2つの文書を比較するWordマクロ

    先日テキスト比較ソフトの「ちゃうちゃう!」がバージョンアップされたこと…

  4. Office アドイン

    Office 用アプリの開発資料(日本語)が公開されました。

    Office 用アプリの開発資料(日本語)が公開されました。・…

  5. Office関連

    蛍光ペンでマークした部分の文字数をカウントするWordマクロ

    Twitterでたまたま下記のツイートを見つけたので、簡単な処理を考え…

コメント

    • 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