如何移除Excel 2007 Standard UserForm的外边缘投影？

我之前在处理Excel 2007的UserForm时也碰到过这个问题——隐藏标题栏后，窗体外边缘的残留投影特别影响界面整洁度。下面是我亲测有效的解决方法，核心是通过调用Windows API来修改窗口的系统样式：

步骤1：声明必要的Windows API函数与常量 #

在你的UserForm模块（或一个标准模块）中添加以下声明代码，这些API用来获取窗口句柄、修改窗口属性：

' 声明Windows API函数
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function DwmSetWindowAttribute Lib "dwmapi" (ByVal hwnd As LongPtr, ByVal dwAttribute As Long, ByRef pvAttribute As Long, ByVal cbAttribute As Long) As Long
Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

' 常量定义
Private Const GWL_EXSTYLE = -20
Private Const WS_EX_CLIENTEDGE = &H200
Private Const DWMWA_NCRENDERING_POLICY = 2
Private Const DWMNCRP_DISABLED = 1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

步骤2：在UserForm初始化时移除投影 #

在UserForm的Initialize事件中添加以下代码，结合你已有的隐藏标题栏逻辑，一起执行：

Private Sub UserForm_Initialize()
    Dim hwnd As LongPtr
    Dim exStyle As LongPtr
    
    ' --- 这里放你已有的隐藏标题栏代码 ---
    ' 比如你用的API隐藏方法，或者简单设置Caption为空（如果适用）
    Me.Caption = ""
    
    ' 获取UserForm的窗口句柄（Excel UserForm的类名为ThunderDFrame）
    hwnd = FindWindow("ThunderDFrame", Me.Caption)
    ' 防止Caption为空导致找不到句柄，兜底处理
    If hwnd = 0 Then hwnd = FindWindow("ThunderDFrame", vbNullString)
    
    ' 方法1：通过DWM禁用窗口非客户端渲染（优先推荐，适用于Vista及以上系统）
    Dim renderPolicy As Long
    renderPolicy = DWMNCRP_DISABLED
    DwmSetWindowAttribute hwnd, DWMWA_NCRENDERING_POLICY, renderPolicy, Len(renderPolicy)
    
    ' 方法2：移除客户端边缘样式（如果方法1不生效时备用）
    exStyle = GetWindowLongPtr(hwnd, GWL_EXSTYLE)
    ' 移除WS_EX_CLIENTEDGE属性，该属性会生成边缘阴影
    exStyle = exStyle And Not WS_EX_CLIENTEDGE
    SetWindowLongPtr hwnd, GWL_EXSTYLE, exStyle
    ' 刷新窗口让样式生效（不改变窗口位置和大小）
    SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

关键说明 #

• DWM方法优先：因为Excel 2007运行的系统基本都是Vista及以上，支持DWM桌面窗口管理器，用DwmSetWindowAttribute直接关闭非客户端渲染，能彻底移除阴影，效果最稳定。
• 兼容性处理：代码中用了PtrSafe和LongPtr，兼容32位和64位Office；如果是纯32位环境，可以去掉PtrSafe，将LongPtr替换为Long。
• 权限设置：确保Excel的宏设置中勾选了「信任对VBA工程对象模型的访问」，否则API调用可能失败。

内容的提问来源于stack exchange，提问作者Jerry