|   |   | Object Model Reference : Classes : E : EffectExtrude : Methods : EffectExtrude.Rotate | 
Sub Rotate(AngleX As Double, AngleY As Double, AngleZ As Double)
Member of EffectExtrude
The Rotate method rotates an extrusion in three-dimensional space.
 
| • | 
The following VBA 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 | 
|   |   |   | 
Copyright 2013 Corel Corporation. All rights reserved.