Represents shadow formatting for a shape.
Using the ShadowFormat Object
Use the Shadow property to return a ShadowFormat object. The following example adds a shadowed rectangle to the active document. The semitransparent, blue shadow is offset 5 points to the right of the rectangle and 3 points above it.
With ActiveDocument.Shapes _
.AddShape(msoShapeRectangle, 50, 50, 100, 200).Shadow
.ForeColor.RGB = RGB(0, 0, 128)
.OffsetX = 5
.OffsetY = -3
.Transparency = 0.5
.Visible = True
End With