API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.OriginalWidth property
Returns Original Width of the shape, ignores any transformations that may have been applied after creation.
Syntax:
Property Get OriginalWidth() As Double
Remarks:
The OriginalWidth property returns the width 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