Вывод активного окна на передний план в VBA

Чтобы вывести текущее окно приложения на передний план в Visual Basic for Applications (VBA), вы можете использовать функцию Windows «SetForegroundWindow». Эта функция определена в user32.dll и принимает в качестве параметра дескриптор приложения в виде длинного целого числа. Как правило, доступ к дескриптору приложения можно получить через свойство hWnd. Пример приведен ниже:

‘ В разделе объявления объявите функцию User32  «SetForgroundWindow»

Public Declare Function SetForegroundWindow Lib «user32» ( ByVal hWnd As Long) As Long

‘ Далее в коде используйте следующее, чтобы вывести текущее приложение на передний план
SetForegroundWindow hWnd

Обратите внимание, что свойство hWnd может измениться в любое время и поэтому не должно сохраняться в переменной. Вместо этого, при необходимости, к нему следует обращаться из объекта Application.

SetForegroundWindow Application.hWnd ‘ возврат в первичное окно