| |
▼亜矢 さん：
>いつもお世話になります。
>開いている外部アプリケーションを指定した位置と指定したサイズに
>設定する方法を教えて頂きたいと思います。
こんな感じで
Private Declare Function SetWindowPos Lib "user32.dll" _
(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 uFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOACTIVATE = &H10
Sub TESTa()
Dim hWnd As Long
Dim lngRtn As Long
Dim lngpX As Long
Dim lngpY As Long
Dim lngdX As Long
Dim lngdY As Long
lngpX = 100 '位置
lngpY = 100
lngdX = 200 '大きさ
lngdY = 200
' hwnd = Window Handle
lngRtn = SetWindowPos(hWnd, _
0, _
lngpX, _
lngpY, _
lngdX, _
lngdY, _
SWP_NOZORDER Or _
SWP_NOACTIVATE)
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
