Sub halfPic() Dim myInShape As InlineShape For Each myInShape In ActiveDocument.InlineShapes myInShape.ScaleHeight = 50 myInShape.ScaleWidth = 50 Next End Sub