VBA中用户窗体位置的问题

ugl

我想在vba中将用户窗体显示位置靠屏幕右侧，使用如下代码：
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Left = Application.Width - Me.Width
End Sub

这样则窗体无法显示，请问原因在哪里？
我屏幕分辨率为1920*1080,试了只要me.left>(1440-me.width)就无法显示（好像跑到屏幕右侧看不到的地方去了），小于这个尺寸则可以显示，我不理解的是用户窗体的右边界为什么不能超过1440，而不是1920，为什么和屏幕分辨率不一致？整个网上似乎都找不到答案

wylong

Application.Width属性返回值的单位为像素，vba窗体的Width属性返回值的单位为磅。
二者的单位不统一，需要换算：1像素=72/96=0.75磅
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Left = Application.Width*0.75 - Me.Width
End Sub

1920*0.75=1440，这就是为什么不能超过1440的原因。

ugl

wylong 发表于 2014-7-15 10:13
Application.Width属性返回值的单位为像素，vba窗体的Width属性返回值的单位为磅。
二者的单位不统一，需要 ...

非常感谢,thanks very much