can we convert PMS color fountain fill to CMYK fill in one step?
This macro does the trick with one click. As found here. Then modified.
Sub ConvertPantoneFountain() Dim cl As FountainColor ActiveDocument.BeginCommandGroup "ConvertPantoneFountain" If ActiveShape.Fill.Type <> cdrFountainFill Then MsgBox "The selected shape must have a fountain fill." Exit Sub End If For Each cl In ActiveShape.Fill.Fountain.Colors cl.Color.ConvertToCMYK cl.Color.ConvertToCMYK Next cl ActiveShape.Fill.Fountain.StartColor.ConvertToCMYK ActiveShape.Fill.Fountain.EndColor.ConvertToCMYK ActiveDocument.EndCommandGroupEnd Sub
© Corel Corporation. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms and Conditions / User Guidelines.