Excel 优化用户窗体的最佳外观选项
我有以下问题:我的客户端更新了Excel版本,所有用户表单似乎都已损坏。此处描述: 在导致问题的较新Excel版本中使用多个显示时,有一个特殊的默认设置“优化以获得最佳外观”。当我切换到兼容性优化选项时,问题就消失了 问题:有人知道如何在VBA代码中以编程方式更改此设置吗Excel 优化用户窗体的最佳外观选项,excel,vba,userform,Excel,Vba,Userform,我有以下问题:我的客户端更新了Excel版本,所有用户表单似乎都已损坏。此处描述: 在导致问题的较新Excel版本中使用多个显示时,有一个特殊的默认设置“优化以获得最佳外观”。当我切换到兼容性优化选项时,问题就消失了 问题:有人知道如何在VBA代码中以编程方式更改此设置吗 我试图录制宏并更改设置,但没有成功。生成的程序是空的。我没有找到解决方法。显然,当“优化最佳外观”选项处于活动状态且多个监视器连接到一个设备时,excel无法正确生成按钮、对象等。告诉每个用户不要使用多个监视器或手动关闭此选项
我试图录制宏并更改设置,但没有成功。生成的程序是空的。我没有找到解决方法。显然,当“优化最佳外观”选项处于活动状态且多个监视器连接到一个设备时,excel无法正确生成按钮、对象等。告诉每个用户不要使用多个监视器或手动关闭此选项不是一个选项
我现在正在以不使用任何对象的方式更改应用程序。它很糟糕,但没有其他方法。您可以尝试更改注册表设置:
HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Options\RenderForMonitorDpi
做一些类似于:
然而,这对我来说不起作用。它会更改注册表值,但在重新启动后,excel不会更改设置,并会将注册表值更改回旧值。您显示的是Word,而不是excel。@freeflow true!但它在excel中完全相同。知道怎么修吗?
Public Function RegWrite(ByVal Path As String, _
ByVal Value As String, _
Optional ByVal Typ As String = "REG_SZ") As Boolean
Dim ws As Object
On Error Goto ErrHandler
Set ws = CreateObject("WScript.Shell")
ws.RegWrite Path, Value, Typ
RegWrite = True
Exit Function
ErrHandler:
RegWrite = False
End Function