Represents shadow formatting for a shape.
Use the Shadow property to return a ShadowFormat object.
The following example adds a shadowed rectangle to myDocument . The semitransparent, blue shadow is offset 5 points to the right of the rectangle and 3 points above it.
Set myDocument = Worksheets(1)
With myDocument.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