help to speed up adding check box

[jono1970]

hello,

I need to place 50 check boxes in column D of my worksheet. Currentl
I go to *view*, *toolbox*, *forms* and drag a check box object in to
cell. I then have to edit, size and place it within the cell. Is ther
a way to quickly replicate this in VBA. I would appreciate it i
somebody could show me how to do this.

Thanks in advance.

Jon

 

[Tom Ogilvy]

Turn on the macro recorder while you do it manually. then generalize the
code and put in a loop.

 

[Charles]

Jono,

Here is a code that I recorded abd modified.

HTH


Charles


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/24/2004 by Charles Harmon
'

'
Application.CommandBars("Forms").Visible = True
Do While cnt <> 50
cnt = cnt + 1
If cnt = 1 Then
mynum = 27
End If
ActiveSheet.CheckBoxes.Add(15, mynum, 72, 72).Select
Selection.ShapeRange.Height = 7#
mynum = mynum + 30
Loop
Application.CommandBars("Forms").Visible = fales
End Sub

 

[Dave Peterson]

Maybe this will help. (Adjust the range to what you need)

http://groups.google.com/[email protected]