Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrDropShadowGroupShape Then With s.Effect.DropShadow If .Type = cdrDropShadowFlat Then .Type = cdrDropShadowBottom .PerspectiveAngle = 45 .PerspectiveStretch = -0.5 End If End With End If Next sEnd Sub