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
Version Information:
CorelDRAW: X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER: X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.