API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.AbsoluteVScale property
Returns the absolute Vertical Scale. This is the total of all Vertical stretches applied to a shape.
Syntax:
Property Get AbsoluteVScale() As Double
Remarks:
The AbsoluteVScale property returns the absolute vertical-scaling value of a shape. The returned value represents the total stretch transformation applied to the shape since its creation.
Examples:
The following VBA example displays a warning message if the active shape has been stretched horizontally or vertically (or both).
Sub Test()
If ActiveShape.AbsoluteHScale <> 1 Or ActiveShape.AbsoluteVScale <> 1 Then
  MsgBox "The current shape is distored"
End If 
End Sub