Shape.AbsoluteHScale

Property AbsoluteHScale As Double

Member of Shape

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 it was first created.

The AbsoluteHScale property returns a read-only value.

The following code example displays a warning message if the active shape was stretched horizontally or vertically (or both) since it was created:

Sub Test() 
 If ActiveShape.AbsoluteHScale <> 1 Or ActiveShape.AbsoluteVScale <> 
1 Then 
  MsgBox "The current shape is distored" 
 End If 
End Sub