Shape.SkewEx

Sub SkewEx(AngleX As Double, AngleY As Double, CenterX As Double, CenterY As Double)

Member of Shape

The SkewEx method skews a shape using the point coordinates specified as the center of distortion.


Parameters	Description
AngleX	Sets the horizontal angle, in degrees, in which to skew the object
AngleY	Sets the vertical angle, in degrees, in which to skew the object
CenterX	Sets the x-coordinate for the center of distortion
CenterY	Sets the y-coordinate for the center of distortion

The following code example creates an isometric cube:

Sub Test() 
 Dim s1 As Shape, s2 As Shape, s3 As Shape 
 Set s1 = ActiveLayer.CreateRectangle(2.5, 8.5, 4.5, 6.5) 
 s1.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 
 Set s2 = s1.Duplicate 
 s2.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 
 ActiveDocument.ReferencePoint = cdrTopLeft 
 s2.Stretch 0.866025, 1 
 s2.SkewEx 0, 30, 1, 1 
 s2.Move -0.866025, 0.5 
 Set s3 = s1.Duplicate 
 s3.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 
 s3.Stretch 0.866025, 1 
 s3.SkewEx 0, 30, 1, 1 
 s3.Move 0.866025, -0.5 
 s1.Stretch 0.866025, 1 
 s1.SkewEx 0, 30, 1, 1 
 s1.Rotate -60 
 s1.Move 0, 1 
End Sub