VBA dynamic checkboxes positioning

Question

У меня есть форма формы Excel VBA, где я пытаюсь добавить несколько флажков в соответствии с количеством элементов в данном словаре.

Это работает, но каждый из моих флажков добавляется в верхний левый угол друг над другом. Как я могу разместить их так, чтобы новейший был сразу ниже предыдущего?

Вот мой соответствующий код:

With CreateObject("Scripting.Dictionary") 
'Variable Checkboxes 
Dim i As Long 
Dim chkBox As MSForms.CheckBox 
For i = 1 To .count - 1 
    Set chkBox = Me.Controls.Add("Forms.Checkbox.1", "Checkbox" & i) 
    chkBox.Caption = .Keys()(i) 
    chkBox.VALUE = False 
Next i 

Answer 1

Я думаю, что одна проблема заключается в том, как вы назначаете флажок. Попробуйте использовать флажок вместо MSForms.Checkbox. Возможны дополнительные варианты, включая опцию Top:

With CreateObject("Scripting.Dictionary") 
'Variable Checkboxes 
Dim i As Long 
Dim chkBox As CheckBox 
For i = 1 To .Count - 1 
    Set chkBox = Me.Controls.Add("Forms.Checkbox.1", "Checkbox" & i) 
    chkBox.Caption = .Keys()(i) 
    chkBox.Value = False 
    chkBox.Top = ...enter top location here... 

Next i 

End Sub 

Answer 2

Вы можете управлять положение относительно их контейнера с помощью Left и Top свойств.

Таким образом, в этом случае, чтобы сложить их друг на друга, вы можете сделать что-то вроде этого:

Const Spacing As Integer = 8 ' Gap between controls. 
For i = 1 To .count - 1 
    Set chkBox = Me.Controls.Add("Forms.Checkbox.1", "Checkbox" & i) 
    ' Position the new checkbox. 
    ' This assumes all will be the same size. 
    chkBox.Top = (chkBox.Height + Spacing) * (i - 1) 
    ... 
Next 

Вы, вероятно, хотите, чтобы играть с этим немного, но это следует надеяться, чтобы вы начали ,