Sub 转CMYK模式()
Dim s As Shape
For Each s In ActiveSelection.Shapes
If s.Fill.Type = cdrUniformFill Then
s.Fill.UniformColor.ConvertToCMYK
End If
Next s
End Sub
Sub 转CMYK模式()
Dim s As Shape
For Each s In ActiveSelection.Shapes
If s.Fill.Type = cdrUniformFill Then
s.Fill.UniformColor.ConvertToCMYK
End If
Next s
End Sub