Multiple objects



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 myDocument
. The semitransparent, blue shadow is offset 5 points to the right of the rectangle and 3 points above it.
Set myDocument = ActivePresentation.Slides(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