I would like to loop through all controls on a custom form and only process
those that are checkbox controls, or textboxes, or labels, etc.

In VBA form module, I was thinking it would be possible to do something like
this:

dim c as control

for each c in me.controls
if c.type = xlcheckbox (or whatever the correct constant should be) then
checkboxCount = checkboxCount + 1
end if
next c

The problem is that there isn't a type property for a control. Can someone
tell me how to do this. I read in help that it was possible to loop thru
the controls on worksheets by looping through the shapes collection, testing
to see if it is a control, then testing to see if it is a checkbox; however
I am interested in looping through controls on a form.

How about...

dim C as control
for each c in me.controls
if typeof c is msforms.checkbox then
'it's a checkbox
end if
next c



John T Ingato wrote:

I would like to loop through all controls on a custom form and only process
those that are checkbox controls, or textboxes, or labels, etc.

In VBA form module, I was thinking it would be possible to do something like
this:

dim c as control

for each c in me.controls
if c.type = xlcheckbox (or whatever the correct constant should be) then
checkboxCount = checkboxCount + 1
end if
next c

The problem is that there isn't a type property for a control. Can someone
tell me how to do this. I read in help that it was possible to loop thru
the controls on worksheets by looping through the shapes collection, testing
to see if it is a control, then testing to see if it is a checkbox; however
I am interested in looping through controls on a form.

--

Dave Peterson

Perfect.. Thank you Dave.

"Dave Peterson" wrote in message
...
How about...

dim C as control
for each c in me.controls
if typeof c is msforms.checkbox then
'it's a checkbox
end if
next c



John T Ingato wrote:

I would like to loop through all controls on a custom form and only
process
those that are checkbox controls, or textboxes, or labels, etc.

In VBA form module, I was thinking it would be possible to do something
like
this:

dim c as control

for each c in me.controls
if c.type = xlcheckbox (or whatever the correct constant should be)
then
checkboxCount = checkboxCount + 1
end if
next c

The problem is that there isn't a type property for a control. Can
someone
tell me how to do this. I read in help that it was possible to loop thru
the controls on worksheets by looping through the shapes collection,
testing
to see if it is a control, then testing to see if it is a checkbox;
however
I am interested in looping through controls on a form.

--

Dave Peterson