Как изменить размер флажка UserForm в VBA, когда флажок создается в коде? - PullRequest
0 голосов
/ 14 июля 2020

Итак, у меня есть этот код в пользовательской форме

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. Похоже, это Снимок экрана с флажками

Я хочу сделать текстовое поле для флажка выше, чтобы сделать все поле видимым, но я не могу этого понять. Я новичок в VBA и действительно новичок в UserForms. Любая помощь будет оценена. Спасибо ADS

1 Ответ

0 голосов
/ 14 июля 2020

Попробуйте chkBox.height = chkBox.height + 2

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...