Microsoft Office Forums - View Single Post - [Solved] Delete all shapes but not the images

AlmostFriday · 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...