MS Word VBA - resize all images in document

ResizePictures.vb

Sub ResizeImages()
    Dim i As Long
    With ActiveDocument
        For i = 1 To .InlineShapes.Count
            With .InlineShapes(i)
                .Height = CentimetersToPoints(8)
                .Width = CentimetersToPoints(8)
            End With
        Next i
    End With
End Sub