VBA：Accessのツールバーとリボンを表示・非表示にする方法
１．やりたいこと
Accessのツールバーとリボンを表示・非表示というように切り替えたい。
２．サンプルコード
以下のサンプルコードをそれぞれ実行することでツールバーやリボンを表示したり、非表示にしたりできます。
(1)ツールバーを消す
|
1 2 3 4 5 |
Function test01() 'ツールバーを消す' DoCmd.ShowToolbar "Ribbon", acToolbarNo End Function |
(2)ツールバーを表示する
|
1 2 3 4 5 |
Function test01() 'ツールバーを表示する' DoCmd.ShowToolbar "Ribbon", acToolbarYes End Function |
(3)リボンのみを最小化or最大化
|
1 2 3 4 5 6 7 8 9 10 11 |
Function test01() 'ツールバーが表示されている場合に有効' 'リボンのみを最小化or最大化。最小の時は最大化、最大の時は最小化する。' Application.CommandBars.ExecuteMso "MinimizeRibbon" 'リボンを常に最小化する場合は以下のようにします。' If Application.CommandBars.GetPressedMso("MinimizeRibbon") = False Then Application.CommandBars.ExecuteMso "MinimizeRibbon" End If End Function |
◆関連記事
AccessVBA：【DoCmd】【TransferSpreadsheetメソッド】Excelの取込み(インポート)と出力(エクスポート)
【DoCmd】「TransferSpreadsheet」を使ったExcelの入力(インポート)と出力(エクスポート)の方法について
VBA：【ADO】【取込み】ExcelファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】ExcelファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
VBA：【ADO】【取込み】CSVファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】CSVファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
