|
|
#8
06-20-2011, 02:13 AM
|
||||
|
||||
Hi Jay,
Try it this way: Code:
Sub Demo()
Dim i As Long
With ActiveDocument
For i = .Shapes.Count To 1 Step -1
If .Shapes(i).Type <> msoPicture Then .Shapes(i).Delete
Next
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 listing linked graphics
|
eng1ne | Drawing and Graphics | 5 | 02-28-2012 06:42 AM |
| Combine is duplicating coments and graphics | Ulodesk | Word | 4 | 05-04-2011 06:10 PM |
| Need To Lock Colors In Graphics | bcicio | PowerPoint | 3 | 11-24-2010 07:47 AM |
|
Graphics resolution
|
Roscoe | Drawing and Graphics | 5 | 07-02-2010 07:43 AM |
| find and replace graphics | thegeester | Drawing and Graphics | 0 | 04-04-2010 04:36 AM |
Windows 7 64bit 
Office 2007
Threaded Mode