^g for all graphics, what about drawings only?

macropod · #1 06-14-2011, 04:07 PM

Hi Jay,

Assuming your drawing is a Word rectangle autoshape, you could use code like:

Code:

Sub Demo()
Dim Shp As Shape
With ActiveDocument
  For Each Shp In .Shapes
    If Shp.Type = msoAutoShape Then
      If Shp.AutoShapeType = msoShapeRectangle Then Shp.Delete
    End If
  Next
End With
End Sub

ghumdinger · #2 06-15-2011, 11:34 AM

Hi Paul,

Thanks for giving it a shot. I've tried the code. It does not work. Perhaps the rectangle I'm dealing with is not an autoshape. I'm not sure how to tell.

Here's a sample of it:

Thanks & warm regards,
Jay

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