GefObject.VerticalShear (property)

Gets and sets the vertical shear of the object in radians.
Syntax: double = object.VerticalShear
object.VerticalShear = double
Description: For GefObject it returns the vertical shear of the object in radians.

The shear angle will be constrained to lie between approximately -1.48 to 1.48 radians (-85 to 85 degrees).

Some object types ignore this property.

Example:

Sub GefObject_VerticalShear()
    
    Dim oCimObj As GefObject
    Dim nRadians As Double
    
    Set oCimObj = CimGetObject
    oCimObj.VerticalShear = pi / 4
    CimGetScreen.Refresh False
    If oCimObj.VerticalShear = 0 Then
        MsgBox "This object ignores the vertical shear property"
    Else
        MsgBox "The current vertical shear is now set to " & _
            "45 degrees"
    End If
    
End Sub