Delete all shapes but not the images

AlmostFriday · #1 12-12-2011, 08:49 AM

I am trying to create a macro to delete lines (the length of the line varies, but, the width is always set to 0 cm) that have been added to a page, but, every variance I put in, still deletes all the shapes including pictures that I want left in.
I am using the following code:

Dim iShp As Word.Shape
For Each iShp In ActiveDocument.Shapes
With iShp
If iShp.Width = 0 Then
iShp.Delete
End If
End With
Next
For i = ActiveDocument.Shapes.Count To 1 Step -1
ActiveDocument.Shapes(i).Delete
Next i

Is there a way round this so the pictures/illustrations are left in?

macropod · #2 12-13-2011, 02:07 AM

Hi AlmostFriday,

the code:

Code:

For i = ActiveDocument.Shapes.Count To 1 Step -1
ActiveDocument.Shapes(i).Delete
Next i

guarantees all shapes will be deleted. Also, your statement:

Quote:

the length of the line varies, but, the width is always set to 0 cm

doesn't make a lot of sense to me. A varying length suggests a non-0 width. Perhaps by 'length' or 'width' you meant 'height'? In any event, you might try something along the lines of:

Code:

Dim iShp As Shape
For Each iShp In ActiveDocument.Shapes
  With iShp
    If .Type = msoAutoShape Then .Delete
  End With
Next

AlmostFriday · #3 12-13-2011, 04:44 AM

Thanks Macropod

I tried the code, but it still deletes the images, the images vary in size (never larger than A3) but they are always .jpg...

Quote:

Quote:
the length of the line varies, but, the width is always set to 0 cm
Quote:
doesn't make a lot of sense to me.
A varying length suggests a non-0 width. Perhaps by 'length' or 'width' you meant 'height'?

Substitute length for height, its a vertical line that goes down the side of the page to highlight an area, the wight of the line is 3 pt.

A right tricky one...

macropod · #4 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

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

macropod · #6 12-13-2011, 05:12 AM

Hi AlmostFriday,

As I said before:

Quote:

Originally Posted by macropod

the code:

Code:

For i = ActiveDocument.Shapes.Count To 1 Step -1
ActiveDocument.Shapes(i).Delete
Next i

guarantees all shapes will be deleted.

You have to delete that code!

AlmostFriday · #7 12-13-2011, 05:18 AM

Thanks Macropod
The only thing is that it leaves some of the horizontal lines in when I delete that part of the code?

macropod · #8 12-13-2011, 05:43 AM

Did you retry with the first version of the code I've posted?

AlmostFriday · #9 12-13-2011, 05:51 AM

Quote:

Originally Posted by macropod

Did you retry with the first version of the code I've posted?

I tried that and it had the same result, if I run the macro a few times it eventually gets rid of them all - its as if it skips some...

macropod · #10 12-13-2011, 01:41 PM

OK, in that case, try:

Code:

Dim i As Long
With ActiveDocument
  For i = .Shapes.Count To 1 Step -1
    With .Shapes(i)
      If .Type = msoAutoShape Then .Delete
    End With
  Next i
End With

AlmostFriday · #11 12-14-2011, 12:04 AM

Tried and tested

MACROPOD IS A GENIUS!!!!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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