如何在vba中用api函数ShowWindow显示隐藏窗口？

api函数ShowWindow可以对指定的窗口设置各种显示模式，比如最大化、最小化、隐藏等等。

它的语法如下：

BOOL WINAPI ShowWindow(
  _In_ HWND hWnd,
  _In_ int  nCmdShow
);

其中hWnd参数表示窗口的句柄，nCmdShow参数表示要设置的显示模式。

具体的显示模式可以看链接。

showwindow函数的VB 声明如下：

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

以下的代码是将excel 应用程序窗口进行各种显示的操作。

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0
Const SW_MAXIMIZE = 3
Const SW_SHOWMINIMIZED = 2
Sub QQ1722187970()
 '获取句柄
 lHwnd = Excel.Application.hwnd
 '最小化显示
 ShowWindow lHwnd, SW_SHOWMINIMIZED
 '最大化显示
 ShowWindow lHwnd, SW_MAXIMIZE
 '隐藏
 ShowWindow lHwnd, SW_HIDE
End Sub