EffectExtrude.Rotate

Sub Rotate(AngleX As Double, AngleY As Double, AngleZ As Double)

The Rotate method rotates an extrusion in 3D space.

See also the AngleX, AngleY, and AngleZ properties.


Parameters	Description
AngleX	Sets the degree of the rotation along the x-axis
AngleY	Sets the degree of the rotation along the y-axis
AngleZ	Sets the degree of the rotation along the z-axis

The following code example creates a rotated and extruded text shape:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text") 
 With s.Text.FontProperties 
  .Name = "Arial Black" 
  .Size = 150 
 End With 
 s.Fill.UniformColor.RGBAssign 0, 0, 255 
 s.Outline.SetProperties 0.01, , CreateRGBColor(0, 0, 0) 
 With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, 
8, , cdrExtrudeSolidFill, CreateRGBColor(0, 128, 0)).Extrude 
  .Rotate 10, 20, 30 
 End With 
End Sub