Sub ShinkPictures()
Dim iShp As InlineShape

    
    For Each iShp In ActiveDocument.InlineShapes
        iShp.LockAspectRatio = True
        'iShp.ScaleHeight = 70
        iShp.Height = 413

    Next iShp
End Sub

Sub deletePictures()
Dim iShp As InlineShape

    
    For Each iShp In ActiveDocument.InlineShapes
        iShp.Delete

    Next iShp
End Sub