i'm looking for a vba code to remove /delete all pictures or graphics or shapes, at once from MS Word
the below code not work fully
Code: Select all
Sub Remover()
Dim i As Integer
With ActiveDocument
For i = 1 To .InlineShapes.Count
.InlineShapes(i).ConvertToShape
Next i
.Shapes.SelectAll
Selection.Delete
End With
End Sub
susan