Transparency Property Example

This example sets the shadow of shape three on myDocument to semitransparent red. If the shape doesn't already have a shadow, this example adds one to it.

Set myDocument = ActiveDocument
With myDocument.Shapes(3).Shadow
    .Visible = True
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0.5
End With