VBA中用户窗体位置的问题

ugl · 发表于 2014-7-14 22:16:00

我想在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 · 发表于 2014-7-15 10:13:00

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 · 发表于 2014-7-20 00:05:00

非常感谢,thanks very much

VBA中用户窗体位置的问题

发表回复

精选推荐