Add toggle button in vba

[ThomasOES]

How to add a toggle button using vba. I need to populate a userform named "charform" with a variable number of toggle buttons. The cell "calbs" numerical value determines the quantity of toggle buttons. I would like the buttons (typically 8-10, but as many as 20) located vertically along the left side of the userform.

Thanks
Tom

 

[dreid1011]

There may be a way to create these dynamically, but I would take the approach of manually creating the max number of toggle buttons and only making the amount visible determined by your variable.

 

[ThomasOES]

s = 100
r = 1
nextog = "Forms.ToggleButton" & r
For t = 1 To calbs

'charform.Controls.Add (nextog)

charform.Controls.Add ("Forms.togglebutton.1")

charform.ToggleButton1.Top = s
r = r + 1
s = s + 40
Next t

Hello

Any reason why code error for

charform.Controls.Add (nextog)

?

 

[ThomasOES]

s = 100
r = 1
nextog = "Forms.ToggleButton" & r
For t = 1 To calbs

'charform.Controls.Add (nextog)

charform.Controls.Add ("Forms.togglebutton.1")

charform.ToggleButton1.Top = s
r = r + 1
s = s + 40
Next t

Hello

Any reason why code error for

charform.Controls.Add (nextog)

?

Found problem. Left a period out

nextog = "Forms.ToggleButton." & r

works

 

[dreid1011]

Found problem. Left a period out

nextog = "Forms.ToggleButton." & r

works

Glad you got it figured out.

 

[ThomasOES]

Found problem. Left a period out

nextog = "Forms.ToggleButton." & r

works

Actually only works when r = 1.
So I try and name the toggle switch so I simply add all the ToggleSwitch1 I want and give each a different name.
Then there is an error message. "Cant set property at runtime"

s = 100
r = 1

For t = 1 To calbs
nextog = "Forms.ToggleButton." & r

charform.Controls.Add ("Forms.togglebutton.1")
charform.ToggleButton1.Name = "togbut1"

r = r + 1
s = s + 40
Next t

 

[Peter_SSs]

Actually only works when r = 1.

So I have removed the 'Mark as solution' from that post.