Macro to format picture

macropod · #2 09-20-2018, 11:00 PM

Your description is a bit vague. Try the following for a starting point:

Code:

Sub Macro1()
With Selection
  If .InlineShapes.Count <> 1 Then Exit Sub
  With .InlineShapes(1)
    With .Borders
      .Enable = True
      .OutsideLineWidth = wdLineWidth300pt
      .OutsideLineStyle = wdLineStyleSingle
      .OutsideColorIndex = wdGray50
    End With
    .Shadow.Visible = True
    .Shadow.Style = msoShadowStyleOuterShadow
    .Shadow.Size = .Height
    .ConvertToShape
  End With
  .ShapeRange(1).WrapFormat.Type = wdWrapTopBottom
End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how to exit from Format 'Picture Tools'?	ftcnet	Word	1	07-28-2016 12:21 AM
what picture format best for first pdf then printing	ketanco	Word	1	04-11-2016 05:46 PM
Macro to select an { includepicture } field code and format the picture behind text and 100% scale	sanpedro	Word VBA	3	03-30-2015 10:50 PM
"format picture" - arrows show as no line atop picture	marbeth	Word	3	07-08-2011 02:16 PM
Problem w/ Format Picture (size)	John Woram	PowerPoint	0	01-31-2010 10:29 AM