Private Declare Function FindWindow _
Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
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 wFlags As Long) As Long
Private Sub Test()
Dim ihWnd As Long
ihWnd = FindWindow(vbNullString, "Калькулятор")
'Укажите класс окна и/или его заголовок
If ihWnd <> 0 Then
SetWindowPos ihWnd, 0&, 25&, 10&, 0&, 0&, &H1 ' Or &H40
'Укажите новое месторасположение окна ( X, Y )
Else
MsgBox "Окно не найдено", vbCritical, ""
End If
End Sub
Можно ли в обычном Exelевском макросе использовать функции WinAPI
Например при помощи функции MoveWindow переместить окно открытого "Калькулятор плюс". Если не сложно пример простенького кода. Заранее благодарен.
http://msoffice.nm.ru/faq/macros/winapi.htm#faq325 можно в этом плане много чего найти.
PASHULKA спасибо! Кому интересно, по этой ссылке