Hi,
I'm not sure if this would work with forms, but when I put multiple text boxes
on a worksheet, I can change them all with the following code:
ActiveSheet.Shapes.Range(Array("Text Box 1", "Text Box 2", "Text Box
3")).Select
Selection.ShapeRange.Height = 84.75
Selection.ShapeRange.Width = 283.5
The above is courtesy of the macro recorder, slightly edited.
Perhaps this can be adapted for use with forms.
Regards - Dave.
"Are you sure there are absolutely no absolutes?"
_________________________________________________________________
The new Windows Live Messenger has landed. Download it here.
http://download.live.com/
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
