Excel ActiveX控件受PC分辨率影响问题求助（VBA UI适配）

• 替换为表单控件
  放弃使用ActiveX控件（比如CommandButton），改用Excel原生的表单控件。ActiveX依赖系统COM组件，对DPI缩放的兼容性极差，很容易出现尺寸、字体变形；而表单控件是Excel内置的，和系统缩放的适配性更好。替换后右键控件选「指定宏」就能绑定原有代码，操作成本很低。

• 用VBA动态适配缩放比例
  在工作簿启动时自动读取当前Excel的显示缩放比例，同步调整控件的尺寸和字体大小。先在100%缩放的环境下记录好控件的基础尺寸和字号，然后通过比例换算适配不同分辨率：

  Private Sub Workbook_Open()
      Dim scaleRatio As Double
      scaleRatio = ActiveWindow.Zoom / 100
      
      ' 调整ActiveX按钮示例
      With Sheet1.CommandButton1
          .Width = 120 * scaleRatio ' 120是100%缩放时的基础宽度
          .Height = 35 * scaleRatio
          .Font.Size = 11 * scaleRatio
      End With
      
      ' 调整表单按钮示例
      With Sheet1.Shapes("SubmitBtn")
          .Width = 120 * scaleRatio
          .Height = 35 * scaleRatio
          .TextFrame.Characters.Font.Size = 11 * scaleRatio
      End With
  End Sub
  

  把这段代码放到ThisWorkbook模块里，每次打开工作簿都会自动适配当前的显示缩放。

• 调整Excel的高DPI兼容性设置
  找到Excel的快捷方式，右键选「属性」→「兼容性」，勾选「替代高DPI缩放行为」，在下拉菜单里选「应用程序」。这样会让Excel自己处理缩放逻辑，避免系统强制缩放导致的控件变形。

• 改用UserForm作为UI载体
  如果工作表控件的适配问题始终无法解决，考虑把UI搬到UserForm里。UserForm的缩放控制更灵活，在初始化时可以设置Zoom属性匹配系统DPI：

  Private Sub UserForm_Initialize()
      Me.Zoom = Application.Windows(1).Zoom
  End Sub
  

  而且UserForm的控件布局在不同分辨率下的一致性比工作表控件好很多。

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