Sub UsuwaWszystkieGrafiki()
'deklaracja zmiennej grafika jako objekt w linii
    Dim grafika As InlineShape
    For Each grafika In ActiveDocument.InlineShapes
'wyszukuje w aktywnym dokumencie wszystkie grafiki i usuwa je
        grafika.Delete
    Next grafika
End Sub