Microsoft Office Forums - View Single Post - [Solved] Use macro to place line style around graphic

macropod · 04-20-2012, 08:18 PM

Hi,

Try something along the following lines:

Code:

Sub Demo()
Application.ScreenUpdating = False
With Selection.InlineShapes(1).Borders
  .OutsideLineStyle = wdLineStyleThickThinSmallGap
  .OutsideLineWidth = wdLineWidth450pt
End With
Application.ScreenUpdating = True
End Sub

Note the 'wdLineWidth450pt' setting. This is the nearest to your 4pt spec. Word has numerous other LineWidth constants, ranging from to 025pt (0.25pt) to 600pt (6pt).