I suppose surrounding with a groupbox vs group'ing (groupobject) would
depend on the OP's overall objective. If to allow different 'sets' of option
buttons whereby one OB in each set can be 'On' then a groupbox indeed makes
that possible. But that's not the same as group'ing shapes and OB's which
does nothing to change their mutual exclusivity. Could of course also
'group' a groupbox of OB's (and labels) but back to the OP's original
problem.
Must admit I don't know why it's not possible to change the value property
of a grouped Forms OB. Most properties of a Groupobject's groupitems can be
individually changed without un-grouping.
Regards,
Peter T
"Dave Peterson" wrote in message
...
Don't group your option buttons via rightclick|grouping|group.
Group them by putting a groupbox from the Forms toolbar around the ones
that
should be grouped.
wrote:
The option button is from the Forms menu and is grouped to a label
using rightclick/grouping/group.
The routine I showed, does find the "Group 498" but not the option
button in it. It's as though the "Group 498" is now the option button,
but you cannot change the value.
Hope this makes sense and thank you for your continued help. This is
doing my head in.
Dave Peterson wrote:
I don't think that the option buttons were grouped like that:
(Selecting a few, then rightclick|grouping|Group)
I'm gonna guess that they were grouped by putting a groupbox around
the
optionbuttons (or putting the optionbuttons within a groupbox).
The groupbox is also on the Forms toolbar.
But I've been wrong before.
Peter T wrote:
With an option button and a rectangle in group it failed, but when
ungrouped
it works
Sub test()
On Error GoTo errH
' fails
ActiveSheet.OptionButtons("Option Button 1").Value = xlOn
'' 1004 Unable to set the Value property of the OptionButton class
ActiveSheet.GroupObjects(1).Ungroup
' now it works
ActiveSheet.OptionButtons("Option Button 1").Value = xlOn
Exit Sub
errH:
Debug.Print Err.Number; Err.Description
Resume Next
End Sub
Maybe it's a version difference thing, this was with XL2000
Regards,
Peter T
"Dave Peterson" wrote in message
...
They worked ok for me.
Are you sure you had option buttons and groupboxes with the
matching
names?
Peter T wrote:
Hi Dave,
Activesheet.optionbuttons("Option button 1").value = xlon
That doesn't work for me if the Forms Option button is grouped,
nor does
the
testme routine you posted.
Regards,
Peter T
"Dave Peterson" wrote in message
...
I'm confused.
If you're just changing a single optionbutton's value, why not
just:
Activesheet.optionbuttons("Option button 1").value = xlon
But if you've grouped your option buttons (from the Forms
toolbar) and
want to
do something to a particular group, you can find that group
like:
Option Explicit
Sub testme()
Dim ob As OptionButton
For Each ob In ActiveSheet.OptionButtons
If ob.GroupBox.Name = "Group Box 498" Then
If ob.Name = "Option Button 1" Then
ob.Value = xlOn
Exit For 'stop checking ???
End If
End If
Next ob
End Sub
But the GroupBox and optionbutton each will have their own
names.
wrote:
I have a option button and label grouped and what of set the
option
button to value xlon. I cannot seem to be able to set the
value when
it's grouped.
I have been trying this which finds the option button but
will not
set
the value.
Dim ob As OptionButton
For Each ob In ActiveSheet.OptionButtons
If ob.Name = "Group 498" Then
ob.Value = xlOn
End If
Next
I get error 'Run-time error 1004': Unable to set the value
property
of
the optionbutton class.
Can somebody tell me where I'm going wrong.
Thank you.
--
Dave Peterson
--
Dave Peterson
--
Dave Peterson
--
Dave Peterson