我有几个用户表单(大小取决于用户输入——他们选择了多少功能)。
我的问题是,我想将“下一步”命令按钮与右下角对齐(将“后退”按钮与左下角对齐)。在下图中,我希望四条红线的距离都是一样的。
我认为这可能就像使用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
With CommandBack
.Caption = WorksheetFunction.Unichar(129092) & " Back "
.Width = 40
.Height = 21
.Left = 32
.Top = CommandNext.Top
End With
End Sub
这是错误的:
如何更改代码以在任何大小的Userform上工作?
已更新
我原本期望两个按钮与底部角落的距离相同(请注意,这并不完美,因为它是由递减/递增的数字产生的):
Private Sub UserForm_Initialize()
'Adjust Commandbutton
With CommandNext
.Caption = " Next " & WorksheetFunction.Unichar(129094)
.Width = 40
.Height = 21
.Left = UserForm1.Width - .Width - 14 'manually altered
.Top = UserForm1.Height - .Height - 32
End With
With CommandBack
.Caption = WorksheetFunction.Unichar(129092) & " Back "
.Width = 40
.Height = 21
.Left = 5 'manually altered
.Top = CommandNext.Top
End With
End Sub