更改单个用户表单页面的大小

Question

我有一个Excel多页用户表单，我希望页面的大小/高度不同。我尝试了以下代码：

sub multipage1_change()
select case me.multipage1.value
case 0
Me.multipage1.height=500
case 1
Me.multipage1.height=600
case 2 
Me.multipage1.height=800
end sub

不幸的是，所发生的是最大的用户窗体大小始终可见，而较小的用户窗体页面只是覆盖在上面。当然，不同的页面可能有不同的高度吗？

谢谢

Answer 1

尝试使用MultiPage1.SelectedItem.Index代替MultiPage1.Value或TabFixedHeight代替高度。

Answer 2

双击MultiPage并导入以下代码。确保您将代码导入“ Private Sub MultiPage1_Change”上，如下所示：

尝试：

Private Sub MultiPage1_Change()

Select Case MultiPage1.SelectedItem.Name
    Case "Page1": MultiPage1.Height = 500
    Case "Page2": MultiPage1.Height = 600
    Case "Page3": MultiPage1.Height = 800
End Select

End Sub