リボンを非表示、2003以前ならメニューを非表示

公開日：2013-07-21　最終更新日：2013-07-21

リボンを非表示、2003以前ならメニューを非表示

Excel2007以降のリボンは幅を取られて邪魔な場合があります、

特に業務アプリの場合は、リボンを消したい事も多いと思います。

リボンを消すだけなら、


  
    
      Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

消えているリボンを表示する場合は、


  
    
      Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"

しかし、まだExcel2003以前が混在している環境の場合、

Excel2003以前では、上記コードを実行しても何も起こりません。

Excel2003以前なら、メニューバーとツールバーを消したい場合は、


  
    
      Dim cb As CommandBarPopup

For Each cb In Application.CommandBars("Worksheet Menu Bar").Controls

      　　cb.Delete

Next

cb.Delete
は、
cb.Visible = False
でも良いです。

メニューを再表示する場合は、


  
    
      Application.CommandBars("Worksheet Menu Bar").Reset

2003以前の場合は、ツールバーもありますので、

ツールバーを全て消す場合は、


  
    
      Dim tb As Toolbar

For Each tb In Toolbars

      　　If tb.Visible = True Then

      　　　　tb.Visible = False

      　　End If

Next

ツールバーの再表示は、

どのツールバーを表示するかが問題となります。

上記のコードのFalseをTrueで実行すると、

全てのツールバーが表示されてしまいます。

もし消したツールバーのみ表示したい場合は、

上記で消したツールバーを、どこかに保存しておく必要があります。

以上を踏まえて、さらにバージョンを判断して実行するようにすると、


  
    
      Sub sample()

If CInt(Application.Version) <= 11 Then

　　Call sample2003

Else

　　Call sample2007

End If

End Sub


Sub sample2007()

　　Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

End Sub


Sub sample2003()

　　Dim cb As CommandBarPopup

　　For Each cb In Application.CommandBars("Worksheet Menu Bar").Controls

　　　　cb.Visible = False

　　Next

　　Dim tb As Toolbar

　　For Each tb In Toolbars

　　　　If tb.Visible = True Then

　　　　　　tb.Visible = False

　　　　End If

　　Next

End Sub

表示する場合は、
False
を
True
に変更したプロシージャーを作成するか、引数でTrue,Falseを渡すようにして下さい。

同じテーマ「マクロVBA技術解説」の記事

再帰呼出しについて（再帰プロシージャー）

・指定数値の階乗を求める再帰VBA ・再帰プロシージャで考慮すべき事項・再帰呼び出しの実践例

フィボナッチ数列（再帰呼び出し）

・フィボナッチ数列を出力する再帰VBA ・再帰呼び出しを使わない場合のVBA ・再帰プロシージャで考慮すべき事項・再帰呼び出しの実践例

文字列でのセル参照と文字列の計算式について（Evaluate,INDIRECT）

セルまたはセル範囲を表す文字列からセル参照する場合と、文字列としての計算式から計算する場合です。"Sheet1"の A1に、"Sheet2" B1に、"A1" "Sheet2"の A1に、"(2+3)*2" このよう…

リボンを非表示、2003以前ならメニューを非表示
印刷ページ設定の余白をセンチで指定する（CentimetersToPoints）

印刷のページ設定の余白サイズは、自動記録ではApplication.InchesToPointsで記録されます、しかし、ページ設定のダイアログ画面ではセンチで指定しているので、どうもしっくりしません。できれば、余白サイズはセンチで指定したいものです。

文字列としてのプロシージャー名を起動する方法（Run,OnTime）

文字列変数の中にプロシージャー名が入っていて、そのプロシージャーを起動したい場合になります、実際には、そのような構造が良いとは思えませんが、知っていればプログラミングの幅が広がります。使うのは、OnTimeメソッドorRunメソッドになります。

ドキュメントの作成者を取得（GetObject,BuiltinDocumentProperties）

エクスプローラーで表示される作成者を取得したいとの問い合わせを受けたので改めて確認をしました、所有者と混同されがちですが全く別のものになります、DOSのDIRで表示できるものは所有者になります。従ってVBAでShell.Applicationで作成者を取得すると書かれているものは全て勘違いをしています。

画像サイズ（横x縦）の取得について

・LoadPictur 関数・AddPictureしてから取得・APIを使用

文字種（ひらがな、全半角カタカナ、半角英大文字等々）の判定

マクロVBAで、文字の種類を判定する具体的なコードになります、書き方はいろいろありますし、なにより、文字を何の種類に入れるかは決まりがありません。カタカナって、どこからどこまで、カナ記号は含むのこのような細部については、使用する時々に合わせて微調整が必要になります。

オブジェクトとプロパティの真実

オブジェクトとプロパティについて、解説をします。対象は、VBA中級以上になると思いますが、初級の方でも、VBAって奥が深いんだなーと感動位は出来ると思います。（笑）ただし、あまり役には立たないかもしれませんので、あしからず。

オブジェクト式について

・オブジェクト式の書き方・オブジェクトは直接指定できない・オブジェクト式の書き始めは何か・メソッドとプロパティの違いについて・オブジェクト式の最後に

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門

ホーム
マクロVBA応用編
マクロVBA技術解説
リボンを非表示、2003以前ならメニューを非表示

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA技術解説
リボンを非表示、2003以前ならメニューを非表示