This example sets the shadow of shape three on worksheet one to semitransparent red. If the shape doesn't already have a shadow, this example adds one to it.
With Worksheets(1).Shapes(3).Shadow
.Visible = True
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0.5
End With