You'd think this would be really easy. I want to select one or more shapes, and add a drop shadow with my choice of parameters. Here's the VBA code:
Sub MakeShadow5()
With ActiveWindow.Selection.ShapeRange.Shadow
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0
.Visible = True
.Blur = 5
.OffsetX = 5
.OffsetY = 5
End With
End Sub
What I end up with most of the time is a shadow that is light gray instead of the black (RGB 0,0,0) that I want. Under certain conditions, the macro works fine and the shadow color is black-- but I have no idea why it works sometimes and not others. Thoughts from the experts out there?
Rudy Stricklan