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以降にのみ対応しています。

[リボン・カスタマイズ]アクティブシートにより表示するグループを切り替える。前のページ

[Office 2013]サインインを無効にする。次のページ

関連記事

  1. Office アドイン

    [Office用アプリ]コピー&ペースト用マニフェストファイル

    Office 用アプリを作るとき、過去に作ったアプリのマニフェストファ…

  2. Microsoft Teams

    Microsoft Teamsでタブの構築を試してみました。

    下記記事の通り、Office 365に新たなコラボレーションツール「M…

  3. Office関連

    [VBA]ユーザーフォームでBootstrapを使う。

    MSDNフォーラムにあった質問「VBAでのフォーム オブジェクトを立体…

  4. Office関連

    Office 2016 Preview for Windowsのサポート情報まとめ

    「Office のサポート ページ - support.office.…

  5. Office関連

    [Excel Services ECMAScript]ループによる入力と一括入力の処理時間について

    埋め込んだExcelワークブックのセルに対して、ループで1セルずつ入力…

  6. アイコン一覧

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

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

コメント

    • MukkuMuku
    • 2013年 4月 10日

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

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

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

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP