Fill.ApplyUniformFill method - Developer Area

API Documentation > CorelDRAW > 2022-v24.2 > Fill > IVGFill

Fill.ApplyUniformFill method

Apply a Uniform Fill to the shape

Syntax:

Sub ApplyUniformFill(ByVal Color As Color)

Parameters:

Name	Type	Description
Color	Color	Specifies the fill color by referencing an existing color component in a palette or a Create...Color method (for example, Application.CreateCMYKColor or Application.CreateRGBColor)

Remarks:

The ApplyUniformFill method applies a uniform fill to a shape by using a Color object.

Alternatively, you can assign a uniform fill to a shape by modifying the Fill.UniformColor property.

Examples:

The following VBA examples creates swatches for each color in the default color palette that is open. A rectangle is created for each color in the palette and is then filled with the color. New pages are added if the swatches cannot fit on a single page.

Sub Test()
  Dim d As Document
  Dim p As Page
  Dim c As Color
  Dim s As Shape
  Const sx As Double = 0.5
  Const sy As Double = 0.5
  Dim x As Double, y As Double
  Dim MaxX As Long, nx As Long
  Dim MaxY As Long, ny As Long
  x = 0
  y = 0
  nx = 0
  Set d = CreateDocument
  d.Unit = cdrInch
  Set p = d.ActivePage
  MaxX = CLng(p.SizeWidth / sx)
  MaxY = CLng(p.SizeHeight / sy)
  For Each c In ActivePalette.Colors
    Set s = p.ActiveLayer.CreateRectangle(x, y, x + sx, y + sy)
    s.Fill.ApplyUniformFill c
    x = x + sx
    nx = nx + 1
    If nx = MaxX Then
      nx = 0
      x = 0
      y = y + sy
      ny = ny + 1
      If ny = MaxY Then
        ny = 0
        y = 0
        Set p = d.AddPages(1)
      End If
    End If
  Next c
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