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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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