Thread: [Solved] ^g for all graphics, what about drawings only?
View Single Post
 
Old 06-14-2011, 04:07 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2007
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,343
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
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
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote