If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
ActiveX ToggleButton Reset
I have a sheet with several hundred ActiveX Toggle buttons. After running
some code, I need to reset them all so their value = False. Is there a way to do with with out typing out ToggleButtonX.Value = False 300+ times? Thanks! |
#2
|
|||
|
|||
ActiveX ToggleButton Reset
You could use a macro like:
Option Explicit Sub testme02() Dim OLEObj As OLEObject Dim wks As Worksheet Set wks = Worksheets("Sheet1") For Each OLEObj In wks.OLEObjects If TypeOf OLEObj.Object Is msforms.ToggleButton Then OLEObj.Object.Value = False End If Next OLEObj End Sub John wrote: I have a sheet with several hundred ActiveX Toggle buttons. After running some code, I need to reset them all so their value = False. Is there a way to do with with out typing out ToggleButtonX.Value = False 300+ times? Thanks! -- Dave Peterson |
#3
|
|||
|
|||
ActiveX ToggleButton Reset
Try some code like
Sub ResetToggles() Dim WS As Worksheet Dim OleObj As OLEObject Set WS = Worksheets("Sheet2") For Each OleObj In WS.OLEObjects If TypeOf OleObj.Object Is MSForms.ToggleButton Then OleObj.Object.Value = False End If Next OleObj End Sub Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group, 1998 - 2009 Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 13 May 2009 12:14:39 -0700, John wrote: I have a sheet with several hundred ActiveX Toggle buttons. After running some code, I need to reset them all so their value = False. Is there a way to do with with out typing out ToggleButtonX.Value = False 300+ times? Thanks! |
Thread Tools | |
Display Modes | |
|
|