How can I select all Controls in a wooksheets
 

If I puts the textboxes, comboboxes,... on a sheet. Is there any way i
Execel VBA to loop through these components?
Please help me if you know. Thanks a lot

--
Message posted from http://www.ExcelForum.com

How can I select all Controls in a wooksheets
 

Hi Bookworm

For Each myshape In ActiveSheet.Shapes
' Your code
Next myshape


You can use this if you want to run your code only for pictures or something else

If myshape.Type = msoOLEControlObject Then .....
If myshape.Type = msoFormControl Then ......
If myshape.Type = msoPicture Then .....
If myshape.Type = msoAutoShape Or myshape.Type = msoLine Then .....
If myshape.Type = msoTextBox Then .....

There are more options


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"bookworm98 " wrote in message ...
If I puts the textboxes, comboboxes,... on a sheet. Is there any way in
Execel VBA to loop through these components?
Please help me if you know. Thanks a lot!


---
Message posted from http://www.ExcelForum.com/

How can I select all Controls in a wooksheets
 

If they are from the control toolbox toolbar

Dim oleObj as OleObject
for each oleObj in activesheet.OleObjects
if typeof oleObj.Object is MSForms.Textboxt then

elseif typeof oleObj.Object is MSForms.Combobox then

end if
Next

--
Regards,
Tom Ogilvy

Ron de Bruin wrote in message
...
Hi Bookworm

For Each myshape In ActiveSheet.Shapes
' Your code
Next myshape


You can use this if you want to run your code only for pictures or
something else

If myshape.Type = msoOLEControlObject Then .....
If myshape.Type = msoFormControl Then ......
If myshape.Type = msoPicture Then .....
If myshape.Type = msoAutoShape Or myshape.Type = msoLine Then
......
If myshape.Type = msoTextBox Then .....

There are more options


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"bookworm98 " wrote in message
...
If I puts the textboxes, comboboxes,... on a sheet. Is there any way in
Execel VBA to loop through these components?
Please help me if you know. Thanks a lot!


---
Message posted from http://www.ExcelForum.com/

How can I select all Controls in a wooksheets
 

Thank you Tom. It works!
Okie. Can you know the way to set a ListBox(Form) empty.
With the TextBox and Combox the Text property can read and write.
But with the ListBox i think it only can read?
Is there any way

--
Message posted from http://www.ExcelForum.com