Shape.AbsoluteVScale

Property AbsoluteVScale As Double

Member of Shape

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

The AbsoluteVScale 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