Shape.Type property - Developer Area

API Documentation > Corel DESIGNER > 2023-v24.5 > Shape > IVGShape

Shape.Type property

Returns the shape's type to distinguish between shape types (rectangles, ellipses,text, curves, etc.)

Syntax:

Property Get Type() As cdrShapeType

Remarks:

The Type property returns the type of a shape. You can use this property to distinguish among shape types (rectangles, ellipses, text, curves, and so on).

Examples:

The following VBA example distorts a curve by moving each of its nodes by a random offset.

Sub Test()
  Dim x As Double, y As Double, max As Double
  Dim n As Node
  If ActiveShape Is Nothing Then
    MsgBox "Select an object first", vbCritical
    Exit Sub
  End If
  If ActiveShape.Type <> cdrCurveShape Then ActiveShape.ConvertToCurves
    If ActiveShape.Type <> cdrCurveShape Then
      MsgBox "Unable to convert the object to curve", vbCritical
      Exit Sub
    End If
    ActiveShape.GetSize x, y
    If x < y Then max = y / 10 Else max = x / 10
      For Each n In ActiveShape.Curve.Nodes
        n.Move (Rnd() - 0.5) * max, (Rnd() - 0.5) * max
      Next n
    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