Hi i have this macro below
Sub Macro1() ' Recorded 03/11/2015 ActiveLayer.Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 100, 100, 0)End Sub
i am trying to change the outline color of a object but using a macro.But the color im trying to get it to change to is a Custom Spot Color .I want the macro to use a color name exactly from the Custom Spot Color palette . I can easily add the color to the default palette but this is not a option as has to be direct from the Custom Spot Color palette.How is this possible please ive tried recording many times.Maybe is just need editing like this below .
Sub Macro1() ' Recorded 03/11/2015 ActiveLayer.Shapes(1).Outline.SetProperties Color:=CreateSpotColor(0, 100, 100, 0)End Sub
Steve was able to send my his palette and it was named, Custom Spot Colors, so this will give him the color he is looking for:
Sub FillWithMySpotColor() Dim c As Color Set c = CreateSpotColor("Custom Spot Colors", 0) ActiveShape.Outline.Color = c End Sub
I was also able to get it working by name. So you could so it this way also:
Sub FillWithMySpotColorByName() Dim c As Color Set c = CreateSpotColorByName("Custom Spot Colors", "CutContour") ActiveShape.Outline.Color = c End Sub
Thanks,
-Shelby