Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Fill.Type = cdrUniformFill Then If s.Fill.UniformColor.Type <> cdrColorHSB Then s.Fill.UniformColor.ConvertToHSB s.Fill.UniformColor.HSBHue = s.Fill.UniformColor.HSBHue / 2 End If End If Next sEnd Sub