Sub Macro1() Dim Image As InlineShape For Each Image In Selection.InlineShapes Image.Width = 115 Next End Sub