Multiple text boxes selection
Does anybody know a command to select text boxs from a worksheet? I can select one by one but if there is a shortcut to select some 50-60 text boxes at a time? -- Rafisahb ------------------------------------------------------------------------ Rafisahb's Profile: http://www.excelforum.com/member.php...o&userid=25312 View this thread: http://www.excelforum.com/showthread...hreadid=387956 |
I've done it using the Select Multiple Objects tool on the Drawing toolbar.
"Rafisahb" wrote in message ... Does anybody know a command to select text boxs from a worksheet? I can select one by one but if there is a shortcut to select some 50-60 text boxes at a time? -- Rafisahb ------------------------------------------------------------------------ Rafisahb's Profile: http://www.excelforum.com/member.php...o&userid=25312 View this thread: http://www.excelforum.com/showthread...hreadid=387956 |
Hi Rafisahb,
If you are talking about ActiveX controls then try this: Sub SelectActiveXTextBoxes() Dim OLEobj As Excel.OLEObject ReDim myArray(0) For Each OLEobj In ActiveSheet.OLEObjects If TypeOf OLEobj.Object Is MSForms.TextBox Then myArray(UBound(myArray)) = OLEobj.Name ReDim Preserve myArray(UBound(myArray) + 1) End If Next OLEobj If UBound(myArray) 0 Then ReDim Preserve myArray(UBound(myArray) - 1) ActiveSheet.Shapes.Range(myArray).Select End If End Sub Regards, KL "Rafisahb" wrote in message ... Does anybody know a command to select text boxs from a worksheet? I can select one by one but if there is a shortcut to select some 50-60 text boxes at a time? -- Rafisahb ------------------------------------------------------------------------ Rafisahb's Profile: http://www.excelforum.com/member.php...o&userid=25312 View this thread: http://www.excelforum.com/showthread...hreadid=387956 |
All times are GMT +1. The time now is 02:46 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com