VBA code to apply style to objects

[Claymationator]

I need a quick code in VBA that I can use to put the following styles on an image that is found in my workbook....any ideas?

1. Black border
2. White fill color
3. Shadow - offset diagonal bottom right

Any help is appreciated.

 

[Damon Ostrander]

Hi Claymationator,

Select your image, then run this macro:

Sub SetPictureFormat()
   With Selection.ShapeRange
      .Fill.Visible = msoTrue
      .Fill.ForeColor.SchemeColor = 9
      .Line.Visible = msoTrue
      .Line.Weight = 2.25
      .Shadow.Type = msoShadow14
      .Shadow.IncrementOffsetX 3#
      .Shadow.IncrementOffsetY 3#
      .Shadow.Transparency = 0.5
   End With
End Sub

You will probably want to adjust some of the parameters to get the exact look (line width, etc.) you want.

Keep Excelling.

Damon