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