Word macro to add image border

Selection.InlineShapes(1).Borders.OutsideLineStyle = wdLineStyleDouble
Selection.InlineShapes(1).Borders.OutsideLineWidth = wdLineWidth150pt
Selection.InlineShapes(1).Borders.OutsideColor = wdColorLightBlue