Shape.PowerClipParent property - Developer Area

API Documentation > CorelDRAW > 2020 > Shape > IVGShape

Shape.PowerClipParent property

Returns the PowerClip parent

Syntax:

Property Get PowerClipParent() As Shape

Remarks:

The PowerClipParent property returns a shape that represents the PowerClip container for a given shape.

Examples:

The following VBA example fills each shape in the current PowerClip container with a lighter tint of the color of the PowerClip container.

Sub Test()
  Dim s As Shape
  Dim c As New Color
  If ActiveShape Is Nothing Then
    MsgBox "Select a powerclip container"
    Exit Sub
  End If
  If ActiveShape.Fill.Type <> cdrUniformFill Then
    MsgBox "Powerclip container must have a uniform fill"
    Exit Sub
  End If
  For Each s In ActiveShape.PowerClip.Shapes
    c.CopyAssign s.PowerClipParent.Fill.UniformColor
    Select Case c.Type
      Case cdrColorRGB
        c.RGBBlue = (c.RGBBlue + 255) \ 2
        c.RGBGreen = (c.RGBGreen + 255) \ 2
        c.RGBRed = (c.RGBRed + 255) \ 2
      Case cdrColorCMYK
        c.CMYKBlack = c.CMYKBlack \ 2
        c.CMYKCyan = c.CMYKCyan \ 2
        c.CMYKMagenta = c.CMYKMagenta \ 2
        c.CMYKYellow = c.CMYKYellow \ 2
      Case Else
        c.ConvertToHLS
        c.HLSLightness = (c.HLSLightness + 255) \ 2
    End Select
    s.Fill.ApplyUniformFill c
  Next s
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