#1
|
|||
|
|||
Delete all shapes but not the images - Possible?
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? |
#2
|
||||
|
||||
Hi AlmostFriday,
the code: Code:
For i = ActiveDocument.Shapes.Count To 1 Step -1 ActiveDocument.Shapes(i).Delete Next i Quote:
Code:
Dim iShp As Shape For Each iShp In ActiveDocument.Shapes With iShp If .Type = msoAutoShape Then .Delete End With Next
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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:
A right tricky one... |
#4
|
||||
|
||||
Hi AlmostFriday,
Quote:
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
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 |
#6
|
||||
|
||||
Hi AlmostFriday,
As I said before:You have to delete that code!
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#7
|
|||
|
|||
Thanks Macropod
The only thing is that it leaves some of the horizontal lines in when I delete that part of the code? |
#8
|
||||
|
||||
Did you retry with the first version of the code I've posted?
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#9
|
|||
|
|||
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...
|
#10
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#11
|
|||
|
|||
Tried and tested
MACROPOD IS A GENIUS!!!! |
Thread Tools | |
Display Modes | |
|
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 |