如何避免Excel用户窗体中用作按钮的图片意外变形？

问题描述 #

我在Excel中制作了供特定用户登录的用户窗体，为了更好的视觉效果，用图片替代普通按钮作为登录控件。但在其他电脑上点击该图片按钮时，图片会变形，且点击变形前的图片区域宏不会运行，只有点击变形后的小区域宏才会触发。本地电脑正常，推测是不同设备的DPI差异导致的，且无任何修改按钮形状的代码。

已尝试但无效的方案：

• button.width = button.width
• button.width = 150
• button.width = password.width（原输入笔误为widht）

可行解决方案 #

1. 开启Excel高DPI兼容模式 #

找到Excel安装目录下的EXCEL.EXE（默认路径：C:\Program Files\Microsoft Office\root\Office16），右键选择属性→兼容性，勾选「替代高DPI缩放行为」，下拉菜单选择「应用程序」，重启Excel后测试效果。

2. 窗体初始化时锁定图片控件尺寸 #

在用户窗体的Initialize事件中添加代码，强制固定图片的宽高与位置，避免DPI缩放干扰：

Private Sub UserForm_Initialize()
    ' 假设你的图片控件名为imgLogin
    imgLogin.AutoSize = False
    imgLogin.Width = 150 ' 替换为你需要的固定宽度
    imgLogin.Height = 40 ' 替换为你需要的固定高度
    ' 示例：基于密码文本框定位，保持布局一致性
    imgLogin.Top = txtPassword.Top + txtPassword.Height + 10
    imgLogin.Left = (Me.Width - imgLogin.Width) / 2 ' 水平居中
End Sub

3. 用Label控件替代图片控件 #

Label控件的DPI兼容性优于图片控件，可将图片设为Label背景：

• 插入Label控件，设置BackStyle为fmBackStyleTransparent（如需透明背景）
• 设置Picture为你的登录按钮图片，PictureSizeMode选择fmPictureSizeModeZoom（保证图片不变形）或fmPictureSizeModeStretch（拉伸适配）
• 给Label添加点击事件，触发登录宏逻辑

4. 全局缩放适配代码 #

通过API获取当前设备DPI，计算缩放比例后调整窗体及所有控件的尺寸与位置：

Private Declare Function GetDeviceCaps Lib "gdi32.dll" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Const LOGPIXELSX = 88
Private Const DEFAULT_DPI = 96

Sub ShowLoginForm()
    Dim currentDPI As Long
    Dim scaleFactor As Double
    currentDPI = GetDeviceCaps(CreateObject("gdiplus.graphics").hdc, LOGPIXELSX)
    scaleFactor = currentDPI / DEFAULT_DPI
    
    With LoginForm ' 替换为你的用户窗体名称
        ' 调整窗体整体尺寸
        .Width = .Width * scaleFactor
        .Height = .Height * scaleFactor
        
        ' 遍历所有控件调整位置、尺寸和字体
        Dim ctrl As Control
        For Each ctrl In .Controls
            ctrl.Left = ctrl.Left * scaleFactor
            ctrl.Top = ctrl.Top * scaleFactor
            ctrl.Width = ctrl.Width * scaleFactor
            ctrl.Height = ctrl.Height * scaleFactor
            
            ' 调整文本类控件的字体大小
            If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "Label" Then
                ctrl.Font.Size = ctrl.Font.Size * scaleFactor
            End If
        Next ctrl
        
        .Show
    End With
End Sub

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