FountainFill.Translate method - Developer Area

API Documentation > Corel DESIGNER > 2022-v24 > FountainFill > IVGFountainFill

FountainFill.Translate method

Moves Start and End points

Syntax:

Sub Translate(ByVal x As Double, ByVal y As Double)

Parameters:

Name	Type	Description
x	Double	Specifies the horizontal offset, measured in document units
y	Double	Specifies the vertical offset, measured in document units

Remarks:

The Translate method repositions the fountain-fill vector. Both the starting and ending points of the fountain fill vector are moved by the specified offset.

Examples:

The following VBA example centers a fountain fill in the active shape (by placing the center of the fill in the center of the shape).

Sub Test()
  Dim ff As FountainFill
  Dim cx As Double, cy As Double ' Current position of fill center
  Dim sx As Double, sy As Double ' Shape's center
  If ActiveShape.Fill.Type = cdrFountainFill Then
    Set ff = ActiveShape.Fill.Fountain
    Select Case ff.Type
      Case cdrSquareFountainFill, cdrRadialFountainFill, cdrConicalFountainFill
        cx = ff.StartX
        cy = ff.StartY
      Case cdrLinearFountainFill
        cx = (ff.StartX + ff.EndX) / 2
        cy = (ff.StartY + ff.EndY) / 2
    End Select
    ActiveDocument.ReferencePoint = cdrCenter
    ActiveShape.GetPosition sx, sy
    ff.Translate sx - cx, sy - cy
  End If
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