change the value of togglebuttons
Nelson,
Two ways - the first does all togglebuttons regardless of name, 2nd does
ToggleButton1, ToggleButton2, etc.:
Sub test()
Dim obj As OLEObject
Dim tbutton As ToggleButton
For Each obj In Worksheets("Sheet1").OLEObjects
If TypeOf obj.Object Is ToggleButton Then
Set tbutton = obj.Object
tbutton.Value = True
End If
Next obj
End Sub
Sub test2()
Dim obj As OLEObject
Dim i As Integer
For i = 1 To 120
Worksheets("Sheet1").OLEObjects("ToggleButton" & i).Object.Value = True
Next i
End Sub
hth,
Doug Glancy
"Nelson" wrote in message
...
Hello, I have a sheet with 120 toggle buttons.
What code can I write to turn the value of all buttons to true at the same
time?
I need something like this (which does not work :P):
dim i as integer
for i = 1 to 120
togglebutton & i.value = true
next i
thank you in advance
|