Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Fill.Type = cdrFountainFill Then If s.Fill.Fountain.Type = cdrLinearFountainFill Then s.Fill.Fountain.Type = cdrConicalFountainFill End If End If Next sEnd Sub