VBA 多页用户窗体动态调整大小事件

Question

早上好！

我是从阅读这篇文章开始的：

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

虽然这提供了很多信息，但我想知道是否有人能够为我指明正确的方向以帮助解决我的疑问。我想根据选择的多页（大概是通过点击事件）动态设置用户窗体的高度和宽度值。会是这样吗？

 Sub pageX_click

 height.value = 23
 width.value = 50

 End Sub

我认为它可能比这更复杂，但如果有人愿意为我指出正确的方向，我可以修改直到找到正确的解决方案。

其他问题- 由于大小不同，我是否需要静态设置每次打开哪些页面？这样我就不会得到随机大小 issues/errors?

Answer 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

VBA 多页用户窗体动态调整大小事件

VBA UserForm Dynamic Resize Event with Multipages

excel

vba

resize

userform

multipage