VBA 用户窗体上命令按钮的均匀间距

Question

我有几个用户表单（不同大小，具体取决于用户输入 - 他们选择了多少功能）。 我的问题是，我想以均匀的间距对齐“下一步”命令按钮（和“后退”按钮）。

我认为这可能就像使用 UserForm1 的高度和宽度并减去一样简单，但这不起作用。

Private Sub UserForm_Initialize()
    'Adjust Commandbutton
    With CommandNext
            .Caption = " Next " & WorksheetFunction.Unichar(129094)
            .Width = 40
            .Height = 21
            .Left = UserForm1.Width - CommandNext.Width - 32
            .Top = UserForm1.Height - CommandNext.Height - 32
        End With

这是错误的：

如何更改代码以在任何大小的用户表单上工作？

Answer 1

UserForm1.Width

和

UserForm1.Height

定义用户窗体的整个大小，包括边框和标题栏。 您必须使用

.InsideWidth

和

.InsideHeight

属性来获取用户表单的内部尺寸：

.Left = UserForm1.InsideWidth - .Width
.Top = UserForm1.InsideHeight - .Height