This example adds a shadow to the title text on slide one in the active presentation.
Application.ActivePresentation.Slides(1).Shapes.Title _
.TextFrame.TextRange.Font.Shadow = True
This example adds a shadowed rectangle to slide one in the active presentation. The blue, embossed shadow is offset 3 points to the right of and 2 points down from the rectangle.
Set myShap = Application.ActivePresentation.Slides(1).Shapes
With myShap.AddShape(msoShapeRectangle, 10, 10, 150, 90).Shadow
.Type = msoShadow17
.ForeColor.RGB = RGB(0, 0, 128)
.OffsetX = 3
.OffsetY = 2
End With