• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ユーザー設定ツールバーのみ表示したい）

ユーザー設定ツールバーの表示方法について

このQ&Aのポイント
  • ファイル起動時にはユーザー設定ツールバーのみ表示させ、終了時にはツールバー設定を戻す方法について教えてください。
  • 現在、標準ツールバーを非表示にするコードを使用していますが、ブックに添付したユーザー設定ツールバーを表示することができません。
  • どのようなコードを使用すれば、ユーザー設定ツールバーの表示を実現できるでしょうか？困っています。

質問者が選んだベストアンサー

  • ベストアンサー
  • bonaron
  • ベストアンサー率64% (482/745)
回答No.1

For Each MyCommandBar In CommandBars MyCommandBar.Enabled = False Next '数式バーを非表示 'Application.DisplayFormulaBar = False CommandBars("ユーザー設定1").Enabled = True CommandBars("ユーザー設定1").Visible = True

dai-papa
質問者

お礼

なるほど・・・・ 言われてみれば納得できますね。 ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ユーザー設定ツールバーの表示位置

    以下のコードでブックに登録したツールバー 「設定１」のみを表示することに成功しましたが なぜかツールバーがシートの下部(シートタブの下)に 表示されてしまいます。 上に移動して保存しても、再度開くと下に表示されます。 上部(もしくは左部)に表示させたい場合はどのようにしたら良いのでしょうか？よろしくお願いします。 For Each MyCommandBar In CommandBars MyCommandBar.Enabled = False Next '数式バーを非表示 'Application.DisplayFormulaBar = False CommandBars("設定１").Enabled = True CommandBars("設定１").Visible = True

  • 再質問：ツールバーを非表示にするマクロ

    bonaronさんありがとうございます。 以下のコードで、ツールバーの非表示→表示がＯＫになったのですが、ファイル起動時にツールバーを非表示にして、ファイル終了時にツールバーを元に戻したいと思っています。よって、以下のコードを非表示にするコード、元にもどすコードの二つに分けたいのですができません。 非表示にするためには、 .CommandBars(i).Visible = False End If Next i End With End Sub で閉じればできるのですが、元に戻すコードの方はどのように書いたら良いのでしょうか？ご教授願います。 ////////////////////////////////////////////// Sub Test() Dim i, p(50), ToolCount With Application MsgBox "ツールバーを非表示にします。" 'カウンター変数の初期化 ToolCount = 0 '<------ For i = .CommandBars.Count To 2 Step -1 If .CommandBars(i).Visible = True Then ' カウンター変数１ＵＰ ToolCount = ToolCount + 1 '<--- この位置 '表示されていたら配列pにインデックスを書き込んで 'そのコマンドバーを非表示にする。 p(ToolCount) = i .CommandBars(i).Visible = False End If Next i MsgBox "ツールバーを元に戻します。" For i = 1 To ToolCount '配列pに書き込まれたインデックスを読み込んで 'そのコマンドバーを表示する。 .CommandBars(p(i)).Visible = True '<--- Next i End With End Sub

  • ツールバーを非表示にするマクロ

    あるＨＰで以下のコードを見つけて試してみました。 起動時に表示しているツールバーは消えるのですが、ファイルを閉じた場合に別のツールバーが開いてしまいます どこかコードがおかしいのでしょうか？ 当方EXCEL2000です。 http://excelfactory.net/excelvbatips/application/apli_11.htm Sub Test() Dim i, p(50), ToolCount With Application MsgBox "ツールバーを非表示にします。" ToolCount = 1 'カウンター変数の初期化 For i = .CommandBars.Count To 2 Step -1 If .CommandBars(i).Visible = True Then p(ToolCount) = i .CommandBars(i).Visible = False '表示されていたら配列pにインデックスを書き込んで 'そのコマンドバーを非表示にする。 ToolCount = ToolCount + 1 ' カウンター変数１ＵＰ End If Next i MsgBox "ツールバーを元に戻します。" For i = 1 To ToolCount .CommandBars(i).Visible = True '配列pに書き込まれたインデックスを読み込んで 'そのコマンドバーを表示する。 Next i End With End Sub

  • EXCEL ツールバーを非表示にするには（VBA)

    EXCELを開いた時、ツールバー（standerd)が見えないように（非表示）したいのですが、わかりません。 VBAで下記のように記述するとエラーが返ります。 Private Sub Workbook_Open() CommandBars(3).Visible = False End Sub 教えて頂けると幸いです。

  • エクセル2003で作成したVBAを2007で使用したい

    エクセル2003で下記のようなVBAを作成していました。 作成した物を使用者が印刷設定を変更できないように ブックを開くと同時に印刷ボタンなどを非表示にしていたのですが・・・ 2007でも使用出来るようにしたいと思ったのですが 2007ではこのままではエラーが出てしまうようです。 2007はまったく扱ったことがないのでどのようにすればよいかわかりません。 どなたかご教授いただけたらと思います。 Private Sub Workbook_Open() Application.DisplayStatusBar = False 'ステータスバー非表示 'ブックを開く時ページ設定と印刷を非表示 On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("ページ設定(&U)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷(&P)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷プレビュー(&V)").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷範囲(&T)").Enabled = False Application.CommandBars("Standard").Enabled = False End Sub

  • エクセルVBAで、非表示にしたエクセルが印刷後に表示されてしまう

    Excel97を使用しています。 ブックを開いた時に、Application.Visible = Falseでエクセルを非表示にしてから、ユーザーフォームだけ表示させる設定にしています。 このユーザーフォーム上のボタンで印刷をするのですが、印刷が終了すると、ユーザーフォームの後ろにブックが表示されてしまいます(タイトルバーだけの時もあります)。 しかもユーザーフォームがまだ表示されているのに、エクセルの「閉じる」ボタンが有効になってしまいます。 印刷のコードの前や後ろにもApplication.Visible = Falseを書いてみたのですがうまくいきません。 ブックを常に非表示にしておくにはどうしたらよろしいでしょうか？ ご存知の方、どうぞよろしくお願いします。

  • Wordのユーザー設定ツールバーが表示されません

    初めまして。 Wordのユーザー設定ツールバーの件で、ご質問させて下さい。 私は、自分好みに書式を変更し、テンプレートで「Nomal」ファイルとして使用しております。 更に、ツールバーもユーザー設定を一つ追加し、「新規作成」を開くと共に、ユーザー設定ツールバーを毎回表示させたいのですが、ユーザー設定ツールバーが消えて無くなってしまいます。 保存方法は、「Nomal」ファイルの上書きが出来ないので、一度適当な名前でテンプレートとして保存し、名前を「Nomal」ファイルに変更して入れ替える方法です。 「Nomal」以外の名前でテンプレート登録し、ダブルクリックすると上手くいく時もあるのですが、「新規作成」と違いとても面倒なので、この方法は避けたいです。 どうしたら、ユーザー設定ツールバーを「Nomal」設定として保存できますでしょうか？ Word2003を使用しております。 宜しくお願い致します。

  • エクセルのメニューバーやツールバーを非表示にする方法

    自分なりにエクセルファイルを作成してきましたが、できれば、メニューバーやツールバーを非表示にしたいと考え、一念発起しました。そして、下のサイトで、答えらしきものを見つけました。具体的には、『メニューを非表示にするには CommandBars オブジェクトの Enabled プロパティをFalse に設定します。再表示する場合は Enabled プロパティを True に設定します。ワークシートメニューを非表示にするには以下のように記述します。』と記載されています。しかし、具体的にどういうことなのか、さっぱり分かりません。ちなみに、マクロ経験は、本を見ながら、必要なものを記入したことがある程度です。どうぞ御指南の程をお願い申し上げます。 http://support.microsoft.com/kb/408057/ja

  • Word　ツールバーの削除

    下記の様なマクロを組み込みました。 しかしこのマクロ自体不必要になったので削除したのですがツール→ユーザー設定→ツールバーにはツールバー及びボタンが残ってしまいました。 ツール→ユーザー設定→ツールバーで削除をすれば消えますが新たにWordを立ち上げると消えていません。 マクロでCommandBars("Indent").Deleteともしましたが結果は同じでした。 どうすれば消えるのでしょうか？どなたかご教授願います。 Sub auto_open() Dim myBar As CommandBar, myButton As CommandBarButton '新しいMenuBarを追加 Set myBar = CommandBars.Add 'MenuBarに名前を設定 myBar.Visible = True myBar.Name = "Indent" myBar.Position = msoBarTop '新しいボタンを追加 Set myButton = myBar.Controls.Add With myButton .Caption = "[チュックインデント]" .Style = msoButtonCaption End With 'ボタンが押下時実行マクロ設定 myButton.OnAction = "checkIndent" myBar.Visible = True End Sub Sub auto_close()

  • エクセルのメニューバーの非表示方法は？

    ユーザー設定でワークシートメニューバーのチェックを外すとその時だけは消えますが、ユーザー設定のウィンドウを閉じると元どおり表示されてしまいます。 またマクロで Application.CommandBars("Worksheet Menu Bar").Visible = False とやるとエラーになってしまいます。 どうすれば消せるのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する