Previous Document Next Document

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


EffectExtrude.BevelGroup

Property BevelGroup As Shape

Description

Member of EffectExtrude

The BevelGroup property returns a Shape object representing a bevel group.

 
You must separate the extrusion from its control shape before using the returned shape.

The BevelGroup property returns a read-only value.

VBA example

The following VBA example creates an extruded text shape with a bevel, separates the extrusion, and moves the bevel group up by 3".

Sub Test()
 Dim s As Shape, eff As Effect, sBevel As Shape
 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, , cdrExtrudeColorShading, CreateRGBColor(0, 0, 0), CreateRGBColor(255, 255, 255), _
  0.1, 45, CreateRGBColor(255, 0, 0))
 Set sBevel = eff.Extrude.BevelGroup
 ' Effect.Separate doesn't work well on beveled extrudes
 ' So, let's use ActiveSelection.Separate instead
 s.CreateSelection ' Select the control text object
 eff.Extrude.ExtrudeGroup.Selected = True ' Add the extrusion to the selection
 sBevel.Selected = True ' Add the bevel group to the selection
 ActiveSelection.Separate ' Separate the selection
 sBevel.Move 0, 3
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.