I recorded a macro for a CYAN FILL.... its like this
Sub F_Cyan() Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection(1).Style.StringAssign "{""transparency"":{},""outline"":{""width"":""1764"",""color"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000""},""fill"":{""type"":""1"",""primaryColor"":""CMYK100,USER,255,0,0,0,100,00000000-0000-0000-0000-000000000000"",""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000""}}"End Sub
...
anyone can make this into smaller easy to understand, like I want to copy that text and paste for magenta and for yellow....etc, similarly also for outline
regards
sriram
To get the same colour: Sh.Outline.Color = Sh.Fill.UniformColorTo get a different colour: Sh.Outline.Color = CreateCMYKColor(0, 100, 100, 0)To remove the outline: Sh.Outline.SetNoOutline