Object Model Reference : Classes : S : Shape : Properties : Shape.AbsoluteVScale
|
|
| Object Model Reference : Classes : S : Shape : Properties : 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 its creation.
The AbsoluteVScale property returns a read-only value.
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.