Sub AllShapes()
'add a blue thin border and locks aspect ratio
'if the image is already a shape uses this macro

Dim oSh As Shape
Dim Osl As InlineShape
For Each oSh In ActiveDocument.Shapes
            oSh.LockAspectRatio = True
            oSh.Line.Weight = 2
            oSh.Line.Style = msoLineSingle
            oSh.Line.ForeColor.RGB = RGB(91, 155, 213)
            oSh.WrapFormat.Type = wdWrapTopBottom
            Next
'formats the shapes and if an inline shapes converts to shapes and aligns top and bottom
 For Each Osl In ActiveDocument.InlineShapes
            Osl.LockAspectRatio = True
            Osl.Line.Weight = 2
            Osl.Line.Style = msoLineSingle
           Osl.Line.ForeColor.RGB = RGB(91, 155, 213)
          Set oSh = Osl.ConvertToShape
      oSh.WrapFormat.Type = wdWrapTopBottom

      Next
      
 
End Sub