Skew the nodes within the range as a shape
Syntax:
Sub Skew(Optional ByVal AngleX As Double = 0, Optional ByVal AngleY As Double = 0, Optional ByVal UseAnchorPoint As Boolean = False, Optional ByVal SkewAnchorX As Double = 0, Optional ByVal SkewAnchorY As Double = 0)
Parameters:
Name Type Description
AngleX
Double
Specifies the degree to which to horizontally slant the node range.
AngleY
Double
Specifies the degree to which to vertically slant the node range.
UseAnchorPoint
Boolean
Specifies whether to use an anchor point.
SkewAnchorX
Double
Specifies, in document units, the x-coordinate of the anchor point when skewing the node range.
SkewAnchorY
Double
Specifies, in document units, the y-coordinate of the anchor point when skewing the node range.
Remarks:
The Skew property skews the nodes in a node range as though the node range were a separate shape object.
Examples:
The following VBA example skews the node range in the active shape horizontally and vertically by 25°. A reference point is not set, but the anchor point is set at (0, 0).
Sub Test()
Dim nr as NodeRange
Set nr = ActiveShape.Curve.Nodes.All
With nr
  .Skew 25, 25, False, 0, 0
End With 
End Sub