API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.AbsoluteHScale property
Returns the absolute Horizontal Scale. This is the total of all Horizontal stretches applied to a shape.
Syntax:
Property Get AbsoluteHScale() As Double
Remarks:
The AbsoluteHScale property returns the absolute horizontal-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