| モジュール：コードペインを一括で閉じる方法 |
|
対象バージョン : 2000, 2002, 2003
最終更新日 : 2016/09/18 (オリジナル作成日：2003/05/10)
概 要
モジュール編集画面（以下 VBE）で、標準モジュールや、クラスモジュールを多数開いていた場合、Access のキー操作でコードペイン（ソース編集窓）のみを一括で閉じる方法です。
解 説
Application オブジェクトには、VBE のウィンドウハンドルを返す VBE プロパティがあります。
VBE に属する Windows コレクションの個々の Window オブジェクトを調べ、コードペインであれば閉じるプロシージャを作成します。
Access の AutoKeys マクログループを利用し、キー操作でこのプロシージャを起動するようにします。
１．プロシージャの作成
参照設定に次のライブラリを追加します。
Microsoft Visual Basic for Applications Extensibility 5.3
Public Function CloseAllCodePane()
Dim objVBE As VBIDE.vbe
Dim objWin As VBIDE.Window
Set objVBE = Application.vbe
For Each objWin In objVBE.Windows
If objWin.Type = vbext_wt_CodeWindow Then objWin.Close
Next
objVBE.Windows(0).SetFocus ' VBE をアクティブウィンドウにするための操作。
Set objVBE = Nothing
End Function
２．マクロの作成
[Ctrl] + W で起動する場合の例
"AutoKeys" の名前で保存します。
３．使用方法
タスクバーに表示されている "Microsoft Access" をマウスで選んでアクティブにし、[Ctrl] + W を押します。
コードペインをすべて閉じた後、VBE がアクティブウィンドウになります。
改訂履歴
