有什么方法可以根据屏幕缩放比例缩放UserForm?
此代码适用于屏幕分辨率,但无法识别屏幕缩放比例:
With Me
.StartUpPosition = 1
.Width = Application.Width * 0.85
.Height = Application.Height * 0.85
.Left = Application.Left + (Application.Width * 0.85) \ 2
.Top = Application.Top + (Application.Height * 0.85) \ 2
End With