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.