Sub DeleteSelectedPicture()
Dim Shp As Shape, iShp As InlineShape
Dim DC As Integer, SHeight As Variant, SWidth As Variant
DC = 0

If Selection.InlineShapes.Count = 1 Then
SHeight = Selection.InlineShapes(1).Height
SWidth = Selection.InlineShapes(1).Width
End If
If Selection.ShapeRange.Count = 1 Then
SHeight = Selection.ShapeRange(1).Height
SWidth = Selection.ShapeRange(1).Width
End If

With ActiveDocument
  For Each iShp In .InlineShapes
    If iShp.Height = SHeight And iShp.Width = SWidth Then
    iShp.Delete
    DC = DC + 1
    End If
  Next
  
  For Each Shp In .Shapes
    If Shp.Height = SHeight And Shp.Width = SWidth Then
    Shp.Delete
    DC = DC + 1
    End If
  Next
  MsgBox DC & " pictures deleted."
End With
End Sub