Object Property Example

This example sets the value of the first shape on the active document. For the example to work, this first shape must be an ActiveX control (a check box or an option button).

With ActiveDocument.Shapes(1).OLEFormat
    .Activate
    Set myObj = .Object
End With
myObj.Value = True

This example adds a new ActiveX control to the active document. The example then activates the new option button and sets some of its properties.

Set myOB = ActiveDocument.Shapes _
    .AddOLEControl(ClassType:="Forms.OptionButton.1")
With myOB.OLEFormat
    .Activate
    Set myObj = .Object
End With
With myObj
    .Value = False
    .Caption = "My Caption"
    .AutoSize = True
End With