Is this Possible ?

[Dr Hackenbush]

Hi

Have a newsletter document with text boxes that have no outlines but
internal gradient colour fills.
Is it possible that a macro could remove all colour fills in one hit just
leaving the text in place ?

many thanks

 

[Graham Mayor]

Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
If oShape.Type = msoTextBox Then
If oShape.Line.Visible = msoFalse Then
oShape.Fill.Visible = msoFalse
End If
End If
Next oShape

should clear the fill from text boxes that are filled and have no border.


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Dr Hackenbush]

Works perfectly

Many Thanks

Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes
If oShape.Type = msoTextBox Then
If oShape.Line.Visible = msoFalse Then
oShape.Fill.Visible = msoFalse
End If
End If
Next oShape

should clear the fill from text boxes that are filled and have no border.


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Graham Mayor]

You are welcome

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>