用户窗体根据屏幕分辨率调整

Question

我特地为不同的解决方案，但他们都不适合我的问题：我有，我想调整的开放，以适应屏幕分辨率的Excel的VBA用户窗体。我能够得到的高度，并通过Application.Height和Application.Width宽度，通常用此两个参数和下面的代码，一个应该做的伎俩：

Me.Top = Application.Top
Me.Left = Application.Left
Me.Height = Application.Height
Me.Width = Application.Width

但现在的问题是：窗口（在自7至少）有一个参数来设置桌面上的变焦（CF下面的图片），这似乎妥协的代码：从100％变为150％，例如，当时，表格的宽度和高度都设置正确，但变焦也没有了，我想根据Windows桌面缩放去改变它。是否有任何人知道如何找回桌面缩放参数。

Answer 1

试试这个：

  Private Sub UserForm_Initialize()
    With Application
    .WindowState = xlMaximized
    Zoom = Int(.Width / Me.Width * 100)
    Width = .Width
    Height = .Height
   End With
  End Sub