Previous Document Next Document

Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.Shading


EffectExtrude.Shading

Property Shading As cdrExtrudeShading

Description

Member of EffectExtrude

The Shading property returns or specifies the shading type for an extrusion.

This property returns cdrExtrudeShading.

VBA example

The following VBA example creates an extruded text shape and shades the extrusion with a fountain color transition from red to yellow.

Sub Test()
 Dim s As Shape, eff As Effect
 Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text")
 With s.Text.FontProperties
  .Name = "Arial Black"
  .Size = 150
 End With
 Set eff = s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, 8)
 With eff.Extrude
  .Shading = cdrExtrudeColorShading
  .BaseColor.RGBAssign 255, 0, 0
  .ShadingColor.RGBAssign 255, 255, 0
 End With
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.