Delete all shapes but not the images

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

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