excel - 如何防止 Excel 用户窗体自动收缩/扩展？

Question

我的 Excel 用户窗体包含各种对象，包括文本框、组合框、单选按钮等。当我的笔记本电脑在扩展坞上并且 VBA 窗口在更大的监视器上打开时，用户窗体和用户窗体上的对象会缩小和扩展.

当我从 VBA 中的 Forms 选项卡访问 UserForm 编辑器时，我可以拖动 UserForm 调整大小 handle ，并且 UserForm 中的对象将立即恢复到其原始状态，但我想以编程方式执行此操作，以便最终用户不会处理具有缩小/扩展的用户窗体。

我已经尝试在打开(UserForm_Initialize)时调整用户窗体的大小，但似乎在用户窗体不活动时发生收缩/扩展，这意味着我的用户窗体调整大小仅用于将用户窗体返回到其收缩/扩展状态而不是它的原始状态。

Sub UserForm_Initialize()

 Call ResizeUserform(Me)

End Sub

Sub ResizeUserform(UserForm_Name As Object)

 UserForm_Name.Width = UserForm_Name.Width + 0.001
 UserForm_Name.Width = UserForm_Name.Width - 0.001

 UserForm_Name.Height = UserForm_Name.Height + 0.001
 UserForm_Name.Height = UserForm_Name.Height - 0.001

End Sub

Answer 1

不要让表单的尺寸模棱两可或容易出现逻辑循环(即作为其自身的函数)；在加载/显示之前设置它们。

IE。:

   'where XX and YY are integer constants:
   With YourFormName
        .width=XX
        .height=YY
        .show
    end with

如果你 绝对需要产生循环语句，通过将计算变量存储在全局/局部变量中间接执行此操作，然后继续声明其属性(即 YourFormName.width=variable)

祝你好运!。