Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Fill.Type = cdrUniformFill Then If s.Fill.UniformColor.Type = cdrColorBlackAndWhite Then s.Fill.UniformColor.BW = True Else s.Fill.UniformColor.BWAssign True End If End If Next sEnd Sub