こちらのサイトを参考にしたところ自己解決できました。
標準モジュールに以下を追加
'ACCESSウィンドウサイズ変更
Public Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal fuFlags As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal fRever As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal uItem As Long, ByVal fuFlags As Long) As Long
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOP = &H0
Public Const SC_SIZE = &HF000
Public Const SC_MAXIMIZE = &HF030
Public Const SC_CLOSE = &HF060
Public Const SC_RESTORE = &HF120
Public Const MF_BYCOMMAND = &H0&
クラスモジュール(Form_OpenまたはForm_Load)に以下を追加
Dim hWnd As Long
'ACCESSウィンドウサイズ変更
hWnd = Application.hWndAccessApp
SetWindowPos hWnd, HWND_TOP, 0, 0, 25, 10, SWP_NOMOVE
hWnd = GetSystemMenu(hWnd, 0)
RemoveMenu hWnd, SC_SIZE, MF_BYCOMMAND
元々のコードと合わせ、
- ACCESSウィンドウを最小化してタスクトレイに隠す
- ACCESSアイコンをクリックすると縮小(25×10)画面が表示される
が実現できました。
sinzouさん、yureighostさんフォローありがとうございました。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/03/04 04:14
2020/03/04 08:02
2020/03/04 23:05
2020/03/05 00:25
2020/03/05 00:29