FountainColors.Add method - Developer Area

API Documentation > CorelDRAW > 2022-v24.2 > FountainColors > IVGFountainColors

FountainColors.Add method

Adds a FountainColor to the FountainColors collection

Syntax:

Sub Add(ByVal Color As Color, ByVal Position As Long)

Parameters:

Name	Type	Description
Color	Color	Specifies the color of the new color point. You can use an existing color name or a Create...Color method (for example, CreateCMYKColor, CreateRGBColor).
Position	Long	Specifies the location of the new color point. Valid positions range from 1 to 99 and are expressed as a percentage from the starting position.

Remarks:

The Add method places a new color point at the specified position. If there is a color point at the specified position, the new color point replaces the existing color point. Valid positions range from 1 to 99.

Examples:

The following VBA example creates a rectangle and applies a linear fountain fill to it. It then adds two color points to the fill: yellow at 30%, and cyan at 60%.

Sub Test()
  Dim s As Shape
  Set s = ActiveLayer.CreateRectangle(1, 1, 4, 3)
  With s.Fill.ApplyFountainFill(CreateRGBColor(0, 0, 0), CreateRGBColor(255, 0, 0))
    .Colors.Add CreateRGBColor(255, 255, 0), 30
    .Colors.Add CreateRGBColor(0, 255, 255), 60
  End With
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25