Question

vba编程，控制窗口的弹出位置，要紧贴屏幕右边

希望点button，弹出的窗口的有右边要贴着屏幕的右边。怎么做到？

Answer 1

UserForm1.Left = ActiveWindow.Width - UserForm1.Width
UserForm1.Show

追问

你试过吗？我怎么用了不行呀

追答

我测试过，活动窗口是Excel，Excel最大化。

Sub aaa()
UserForm1.Left = ActiveWindow.Width - UserForm1.Width
UserForm1.Show
End Sub

追问

这是一个弹出窗体，我需要点别的窗体的button弹出来。如果我直接运行这个窗体的话，确实靠右了。但是我点button弹出来的话又不是靠右的了。请问怎么回事，我直接在弹出窗体中输入了如下语句：
Private Sub UserForm_Initialize()
With UserForm1
.StartUpPosition = 0
.Left = Application.Width - .Width
End With
End Sub

追答

唉，VB中这个东东很方便，拖一下窗体即可，在VBA中就不行了，没这个功能。还有VB中可以用Screen.Width获取屏幕宽度，VBA中没这个功能。
给个方法：
定义一个全局变量（如SW），在第一次载入窗体时，即前面我提到的UserForm1.Left = ActiveWindow.Width - UserForm1.Width，把这里的ActiveWindow.Width赋值给变量SW，以后任何弹出窗体要用到这个东东，就调用此变量即可。如你的代码中：.Left = Application.Width - .Width就可以用：.Left = SW - .Width