Shape.OriginalHeight property - Developer Area

API Documentation > CorelDRAW > X7.4 > Shape > IVGShape

Shape.OriginalHeight property

Returns Original Height of the shape, ignores any transformations that may have been applied after creation.

Syntax:

Property Get OriginalHeight() As Double

Remarks:

The OriginalHeight property returns the height of a shape at creation, before any transformations were applied to it.

Examples:

The following VBA example creates a rectangle that copies all the transformations of the currently selected shape.

Sub Test()
  Const g2rad As Double = 1.74532925199433E-02
  Dim s As Shape, r As Shape
  Dim x As Double, y As Double
  Set s = ActiveShape
  If s Is Nothing Then
    MsgBox "Nothing selected. Please try again", vbCritical
    Exit Sub
  End If
  ActiveDocument.ReferencePoint = cdrCenter
  s.GetPosition x, y
  x = x - s.OriginalWidth / 2
  y = y - s.OriginalHeight / 2
  Set r = ActiveLayer.CreateRectangle2(x, y, s.OriginalWidth, s.OriginalHeight)
  r.Stretch s.AbsoluteHScale, s.AbsoluteVScale * Cos(s.AbsoluteSkew * g2rad)
  r.Skew s.AbsoluteSkew, 0
  r.Rotate s.RotationAngle
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