изменение размеров отдельных страниц пользовательской формы

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

Дважды щелкните 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

Answer 2

Попробуйте MultiPage1.SelectedItem.Index вместо MultiPage1.Value или TabFixedHeight вместо высоты.