Sub changePicture()
MsgBox ActiveDocument.InlineShapes.Count

For Each bit In ActiveDocument.InlineShapes

With bit

MsgBox .Height
MsgBox .Width

.Height = 761
.Width = 463

End With


Next
End Sub