Hi, First: It's up to you / your needs where you get the colours from, I used this 'CreateRGBColors()' to simplify the script. Second: The Outline is a property of a shape. It has it own properties, like the .Color property. You can feed this property with any colour source you have. Mabe you try this script: Sub ForCDT_160718() Dim MyShape As Shape, MyPal As Palette Set MyShape = ActiveLayer.Shapes(1) Set MyPal = ActiveDocument.Palette With MyShape .Fill.ApplyFountainFill MyPal.Colors(2), MyPal.Color(3), cdrRadialFountainFill ActiveDocument.Unit = cdrInch ActiveDocument.Unit = cdrPixel With .Outline .Color = MyPal.Color(1) .Width = 1 End With End With End Sub Be carefull: the .Width property is depending on the Document.Unit-Property. Simpy delete the second ActiveDocument.Unit-Line and you see, what I mean. I fear, this may be a little complex for you right now, but maybe you use it and will - like I did in the past - try to play a little with it, get much more experience with CorelDraw. Regards
↧