Finding autoshapes

  • Thread starter Ximo Escobedo, Valencia, Spain
  • Start date
X

Ximo Escobedo, Valencia, Spain

Hello, I have a big document where I created many autoshapes and many of them
with ligth colours. Now I'm editing it and I think I've lost a few autoshapes
in the middle of the document because of their colour, it is difficult to see
them over a white background

If I execute a "find" with "special", "graphic", I don't find autoshapes
but, only graphics

How can I find all the autoshapes in a document? or, Is there something like
a "work with autoshapes" where I can see all the autoshapes in my document?

Thanks in advance
 
G

Greg

The following macro with fill each autoshape in your document with a
red foreground color.

Sub Test()
Dim oAS As Shape
For Each oAS In ActiveDocument.Shapes
oAS.Fill.ForeColor = RGB(255, 0, 0)
Next
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

cross references and hyperlinks within autoshape text disappear 0
Putting autoshapes on graphics 1
Q: Make a Bevel AutoShape look Pressed In? 0
Finding autoshapes in a document 0
Difficulty with compatibility mode and Track Changes 2
Features to change AutoShape size(s) are greyed out! 4
AutoShapes are all created white by default - help! 3
How can I find paragraph breaks that are not preceded by a period? 0

Top