Dynamically add a Checkbox and change its Caption

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jd - 21 Sep 2007 02:52 GMT

I'm able to add a checkbox to word with the following code. However,
I've been unable to change the checkbox "caption". Anyone know how to
do this?

Sub InsertCheckBox()
Dim wdApp As Word.Application
Set wdApp = New Word.Application
wdApp.Documents.Add
wdApp.Visible = True

wdApp.ActiveDocument.ToggleFormsDesign
wdApp.Selection.InlineShapes.AddOLEControl
ClassType:="Forms.CheckBox.1"

End Sub

Reply to this Message

Doug Robbins - Word MVP - 22 Sep 2007 01:44 GMT

Use:

Set myOB = ActiveDocument.Shapes _
.AddOLEControl(ClassType:="Forms.CheckBox.1")
With myOB.OLEFormat
.Activate
Set myObj = .Object
End With
With myObj
.Caption = "My Checkbox"
End With

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> I'm able to add a checkbox to word with the following code. However,
> I've been unable to change the checkbox "caption". Anyone know how to
[quoted text clipped - 11 lines]
>
> End Sub

Reply to this Message