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マクロ三種

    Wordには、選択中の文字列と似た書式の文字列を一括選択する「類似した…

  2. アイコン一覧

    Office 365アイコン(imageMso)一覧(J)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  3. Office関連

    ビジネスITアカデミーの無料VBAセミナーに行ってきました。

    Excel MVPの伊藤さんやWord MVPの新田さんのブログ記事で…

  4. Office アドイン

    [Office用アプリ]アプリ開発コンテスト・受賞者発表

    以前書いた記事でお知らせしていた「Apps for Office アプ…

  5. Office関連

    Google翻訳の言語自動検出機能を追う

    「Google TTSで文字列を読み上げるマクロ」でGoogle翻訳の…

コメント

    • 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