object associated with the specified shape.
expression.WebOptionButton
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example creates a new Web option button and specifies that its default state is selected.
Dim shpNew As Shape
Dim wobTemp As WebOptionButton
Set shpNew = ActiveDocument.Pages(1).Shapes.AddWebControl _
(Type:=pbWebControlOptionButton, Left:=100, _
Top:=123, Width:=16, Height:=10)
Set wobTemp = shpNew.WebOptionButton
wobTemp.Selected = msoTrue