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

If anyone has the same problem... the only way I was able to get this to work is by skipping pictures:

Code:
 
For Each inls In ActiveDocument.InlineShapes
If Not inls.Type = wdInlineShapePicture Then
If inls.OLEFormat.ClassType = "Forms.CheckBox.1" Then
If inls.OLEFormat.Object.Value = True Then
inls.Select
Selection.MoveStart Unit:=wdRow, Count:=0
Selection.MoveEnd Unit:=wdRow, Count:=13
Selection.Font.Hidden = True
Else
inls.Select
Selection.SelectRow
Selection.Font.Hidden = True
End If
End If
End If
Next
Reply With Quote