In diesem Beispiel wird der Schatten der Form drei auf Tabellenblatt eins auf semitransparent rot festgelegt. Wenn die Form keinen Schatten hat, wird hier einer hinzugefügt.
With Worksheets(1).Shapes(3).Shadow .Visible = True .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0.5 End With