ユーザー設定ツールバーの表示位置
- ブックに登録したツールバー「設定１」の表示位置を上部(もしくは左部)に移動させる方法について教えてください。
- ツールバーがシートの下部に表示されてしまう現象が発生しています。上に移動して保存しても、再度開いた時には再び下部に表示されます。
- 上部(もしくは左部)に表示させるための設定方法を教えてください。
- ベストアンサー
ユーザー設定ツールバーの表示位置
以下のコードでブックに登録したツールバー 「設定１」のみを表示することに成功しましたが なぜかツールバーがシートの下部(シートタブの下)に 表示されてしまいます。 上に移動して保存しても、再度開くと下に表示されます。 上部(もしくは左部)に表示させたい場合はどのようにしたら良いのでしょうか？よろしくお願いします。 For Each MyCommandBar In CommandBars MyCommandBar.Enabled = False Next '数式バーを非表示 'Application.DisplayFormulaBar = False CommandBars("設定１").Enabled = True CommandBars("設定１").Visible = True
- dai-papa
- お礼率21% (50/233)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
CommandBars("設定１").Position = msoBarLeft あるいは CommandBars("設定１").Position = msoBarTop
関連するQ&A
- ユーザー設定ツールバーのみ表示したい
ファイルを起動したときに、 ブックに添付したユーザー設定ツールバーのみを表示させ、終了時にファイル起動前のツールバー設定に戻すにはどうしたら良いのでしょうか？ 現在 Dim MyCommandBar As CommandBar For Each MyCommandBar In CommandBars MyCommandBar.Enabled = False Next のコードで標準ツールバーを全て表示しないようにしているのですが、このコードではブックに添付したユーザー設定ツールバーをVisible=Trueにしても表示できないようです。 困っています、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ツールバーを非表示にするマクロ
あるＨＰで以下のコードを見つけて試してみました。 起動時に表示しているツールバーは消えるのですが、ファイルを閉じた場合に別のツールバーが開いてしまいます どこかコードがおかしいのでしょうか？ 当方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
- ベストアンサー
- オフィス系ソフト
- 再質問：ツールバーを非表示にするマクロ
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
- ベストアンサー
- オフィス系ソフト
- VBA コマンドバーを消した後に残る空白部分
お世話になります。 ExcelVBAで、コマンドバーの類を全て消去した後に残る、 空白部分ができる原因が解りません。 この部分をダブルクリックすると、エラーになって強制終了に なってしまいます。 完全に消してしまいたいのですが、この状況になってしまう、 原因と対策を教えてください。 内容は、『システム』という名のシートにある『ロック』ボタンを 押すと、コマンドバーを全て消去して、Sheet1に切り替わるといった 流れです。 ↓モジュール側 ------------------------------------------------------------- Dim myCB As CommandBar Public Sub onCmdBarAttr() DoEvents With Application For Each myCB In Application.CommandBars myCB.Enabled = True Next myCB .CommandBars("Standard").Visible = True .CommandBars("Formatting").Visible = True .CommandBars("Visual Basic").Visible = True .CommandBars("Worksheet Menu Bar").Enabled = True .CommandBars("CELL").Enabled = True ' タスクバーに表示させる .ShowWindowsInTaskbar = True ' 数式バーを表示 .DisplayFormulaBar = True ' ステータスバーを表示 .DisplayStatusBar = True End With End Sub Public Sub offCmdBarAttr() Dim myCB As CommandBar On Error Resume Next For Each myCB In Application.CommandBars myCB.Enabled = False Next myCB On Error GoTo 0 With Application .CommandBars("Worksheet Menu Bar").Enabled = False .CommandBars("CELL").Enabled = False ' 数式バーを消去 .DisplayFormulaBar = False ' ステータスバーを消去 .DisplayStatusBar = False ' タスクバーに表示させない .ShowWindowsInTaskbar = False End With End Sub ' シートロック Public Sub protectSheet(ByVal stSheetName As String) Application.ScreenUpdating = False ' 一旦シート保護をかけ直す With Worksheets(stSheetName) .Activate .Unprotect .Protect UserInterfaceOnly:=True ' カーソルの移動範囲を設定する .ScrollArea = "$A$1" ' 左上セルを選択 .Range("H16").Select ' 保護されたセルは選択不可にする .EnableSelection = xlNoRestrictions End With Application.ScreenUpdating = True End Sub ' シートロック解除 Public Sub unprotectSheet(ByVal stSheetName As String) ' 一旦シート保護をかけ直す With Worksheets(stSheetName) .Unprotect ' スクロール範囲を解除する .ScrollArea = "" ' 保護されたセルでも選択可能にする .EnableSelection = xlUnlockedCells End With End Sub Public Sub setBookAttribute(ByVal bFlg As Boolean) With Windows(ThisWorkbook.Name) ' タブを設定 .DisplayWorkbookTabs = bFlg ' スクロールバーを設定 .DisplayHorizontalScrollBar = bFlg .DisplayVerticalScrollBar = bFlg ' グリッドを設定 .DisplayGridlines = bFlg ' 行列数表示を設定 .DisplayHeadings = bFlg End With End Sub ↓シート側 ------------------------------------------------------ Private Sub btnProtect_Click() ' アプリケーション全体の処理 Call Module1.offCmdBarAttr ' シート単位の処理 Call Module1.protectSheet("Sheet1") ' ブック単位の処理 Call setBookAttribute(False) Worksheets("Sheet1").Activate End Sub Private Sub btnUnprotect_Click() Call Module1.onCmdBarAttr Call Module1.unprotectSheet("Sheet1") Call setBookAttribute(True) End Sub 以上、よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルのメニューバーやツールバーを非表示にする方法
自分なりにエクセルファイルを作成してきましたが、できれば、メニューバーやツールバーを非表示にしたいと考え、一念発起しました。そして、下のサイトで、答えらしきものを見つけました。具体的には、『メニューを非表示にするには CommandBars オブジェクトの Enabled プロパティをFalse に設定します。再表示する場合は Enabled プロパティを True に設定します。ワークシートメニューを非表示にするには以下のように記述します。』と記載されています。しかし、具体的にどういうことなのか、さっぱり分かりません。ちなみに、マクロ経験は、本を見ながら、必要なものを記入したことがある程度です。どうぞ御指南の程をお願い申し上げます。 http://support.microsoft.com/kb/408057/ja
- 締切済み
- オフィス系ソフト
- EXCEL ツールバーを非表示にするには（VBA)
EXCELを開いた時、ツールバー（standerd)が見えないように（非表示）したいのですが、わかりません。 VBAで下記のように記述するとエラーが返ります。 Private Sub Workbook_Open() CommandBars(3).Visible = False End Sub 教えて頂けると幸いです。
- ベストアンサー
- オフィス系ソフト
- Excel 数式バーを非表示にしたい(VBA)
ツール－オプション－表示－数式バーのチェックを外せば 数式バーを非表示にできますが、VBAでやりたいと思います。 次の様に記述してみましたが、書式バーの「数式バー(F)」のボタンが非表示になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Visible = False End Sub 次の様に記述してみても今度は「数式バー(F)」のボタンが操作不可になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Enabled = False End Sub 他にも試すのですが、エラーになったりで答えに辿り着けず・・ どなたかヒントだけでもお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 保存方法を教えて下さい
Private Sub Workbook_BeforeClose(Cancel As Boolean) If MsgBox("×ボタンは使用できません。" & vbCr & _ "よろしいですか？", vbInformation + vbOKOnly) = vbOK Then Cancel = True End If End Sub 上記の様にEXCELワークブックに記述しましたが、 別に設置した「保存終了ボタン」で終了できなくなってしまいました。 Workbook_BeforeClose が邪魔しているようです。 どうすれば解決できるでしょうか？ 「保存終了ボタン」に記述しているコードは下記です。 Sub 保存終了() ActiveWorkbook.Save CommandBars("Worksheet Menu Bar").Enabled = True Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Drawing").Visible = True With Application .DisplayFormulaBar = True .ShowWindowsInTaskbar = True End With Application.WindowState = xlMaximized Application.Quit MsgBox "終了します" End Sub 宜しくお願いします。
- ベストアンサー
- Visual Basic
- ExcelVBAで質問です。全画面表示が解除できなくなりました。
ExcelVBAで質問です。全画面表示が解除できなくなりました。 ExcelVBAで下記のコードを実行したらワークシートの全画面表示が解除できなくなりました。一度Excelを閉じて違うファイルを開いても同様の結果になりました。いろいろな解除方法を実行しても解除されません。大変困っています。どなたか解除する方法を教えて下さいませんか。 Private Sub Workbook_Open() Dim cb As CommandBar Dim w As Window Dim ws As Worksheet On Error Resume Next 'ツールバーを表示/非表示 For Each cb In Application.CommandBars cb.Enabled = Mode Next '数式バー/ステータスバーの表示/非表示 Application.DisplayFormulaBar = Mode Application.DisplayStatusBar = Mode End Sub
- ベストアンサー
- その他([技術者向] コンピューター)
- 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()
- ベストアンサー
- オフィス系ソフト
お礼
いろいろありがとうございました。 なんとか完成しそうです。