Delete all shapes but not the images

macropod · #5 12-13-2011, 05:04 AM

Hi AlmostFriday,

Quote:

I tried the code, but it still deletes the images

That's odd - it should only delete Word's own autoshape objects. Of course, if the pictures are in textboxes, they'd get deleted. Are you sure you haven't got some other code in there?

Here's an alternative routine you might try:

Code:

Dim Shp As Shape
For Each Shp In ActiveDocument.Shapes
  With Shp
    If .TextFrame.TextRange.InlineShapes.Count = 0 And _
      .Type <> msoLinkedPicture And .Type <> msoPicture Then .Delete
  End With
Next

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mail Mege Images - Path Correct but Images Repeated	Sonia Sosa	Mail Merge	8	04-22-2011 03:05 PM
Where did map shapes go?	SueK	PowerPoint	1	01-20-2011 04:30 AM
delete email message via blackberry and have it delete on my pop3 and my outlook	Iamthestorm	Outlook	2	10-28-2010 12:21 AM
Find and add new Shapes	bonani	PowerPoint	1	11-26-2009 06:21 PM
My Shapes some appear some don't	Jean-Paul	Visio	0	03-01-2006 01:38 AM