在代码中生成复选框时，如何更改 VBA 中用户窗体的复选框大小？答案

【问题标题】：How do I change the checkbox size of a UserForm in VBA when the checkbox is generated within the code?在代码中生成复选框时，如何更改 VBA 中用户窗体的复选框大小？
【发布时间】：2020-11-04 03:44:16
【问题描述】：

所以我在用户表单中有这段代码

Sub UserForm_Initialize()

Dim i           As Long
Dim chkBox      As MSForms.CheckBox

On Error GoTo Error:
LastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To LastRow
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = Worksheets("Sheet1").Cells(i, 1).Value
    chkBox.Left = ((i - 1) Mod 4) * 100 + 5
    chkBox.Top = 5 + Fix((i - 1) / 4) * 30
Next i
Error:
End Sub

当我运行此代码时，我得到基于值的复选框来自 Excel 中的一行。看起来像这样 Screen shot of checkboxes

我想要做的是使复选框的文本框更高以使整个字段可见，但我无法弄清楚这一点。我对 VBA 很陌生，对 UserForms 也很陌生。任何帮助，将不胜感激。谢谢广告

【问题讨论】：

使用 Height 属性。

标签： excel vba checkbox properties

【解决方案1】：

试试chkBox.height = chkBox.height + 2

【讨论】：

这并不完全有效，但让我走上了正确的道路。在循环中，我添加了chkBox.height = 30，然后它就可以正常工作了。谢谢您的帮助。广告