Microsoft Word macro to resize all pictures in a document to 40% of original size

ScalePictures40.vb

Sub ScalePictures40()
    Dim i As Long
    With ActiveDocument
        For i = 1 To .InlineShapes.Count
            With .InlineShapes(i)
                .ScaleHeight = 40
                .ScaleWidth = 40
            End With
        Next i
    End With
End Sub

Thanks.