Delete all shapes but not the images

AlmostFriday · #1 12-13-2011, 05:07 AM

Thanks again Macropod

But...still deletes the pictures...

The code I am using is as follows:

Code:

Dim iShp As Word.Shape
    For Each iShp In ActiveDocument.Shapes
        With iShp
         If .Type <> msoLinkedPicture And .Type <> msoPicture Then .Delete
        End With
    Next
    For i = ActiveDocument.Shapes.Count To 1 Step -1
    ActiveDocument.Shapes(i).Delete
    Next i

I thought that this would be fairly straight forward, but, I'm starting to think its an impossible one...

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