Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrDropShadowGroupShape Then With s.Effect.DropShadow .FeatherType = cdrFeatherOutside .FeatherEdge = cdrEdgeInverseSquared .Feather = 50 End With End If Next sEnd Sub