2015-12-29 4 views
1

Доброе утро!VBA UserForm Динамическое изменение размера события с многостраничными

Я начал, читая это:

http://www.andypope.info/vba/resizeform.htm

И хотя это было очень информативно, мне было интересно, если кто-то один мог бы мне точку в правильном направлении, чтобы помочь в состоянии решить мой запрос. Я хочу динамически установить высоту & значения ширины пользовательской формы в зависимости от того, какой из них выбран (например, щелчком). Было бы что-то вроде этого?

Sub pageX_click 

height.value = 23 
width.value = 50 

End Sub 

Я предполагаю, что это может быть более сложным, чем это, но если кто-то будет готов мне точку в правильном направлении, я могу повозиться, пока я найти правильное решение.

Другой вопрос - из-за разных размеров мне понадобилось бы статически устанавливать, какие страницы открываются каждый раз? Таким образом, я не получаю случайные ошибки/ошибки?

ответ

1

Вот решение- это было буквально так просто, как я думал

Private Sub MultiPage1_Change() 

If MultiPage1.Value = 0 Then 
    ToolBoxForm.Height = 560.25 
    ToolBoxForm.Width = 652.5 
End If 

'lather, rinse, repeat for each page 

End Sub