Thread: [Solved] HELP...Beginner
View Single Post
 
Old 02-21-2011, 10:23 PM
cksm4 cksm4 is offline Windows XP Office 2007
Advanced Beginner
 
Join Date: Aug 2010
Posts: 48
cksm4 is on a distinguished road
Default

Hello Leeroy,

Check boxes are InlineShapes

Try this for a start:

Code:
 
Dim inls As InlineShape
For Each inls In ActiveDocument.InlineShapes
If inls.OLEFormat.ClassType = "Forms.CheckBox.1" and _
inls.OLEFormat.Object.Value = True Then
'Do something
End If
Next
I'm a little new myself so I am sure someone can offer a cleaner version

Brock
Reply With Quote