EffectExtrude.ShowBevelOnly

Property ShowBevelOnly As Boolean

The ShowBevelOnly property returns or sets whether to show only the bevel of an extrusion. When set to True, only the extrude bevel is visible.

The following code example finds extruded text shapes. It adds a bevel to extrusions and makes only the bevel visible.

Sub Test() 
 Dim s As Shape, ext As EffectExtrude 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrExtrudeGroupShape Then 
   Set ext = s.Effect.Extrude 
   If ext.FaceShape.Type = cdrTextShape And Not ext.UseBevel Then 
    ext.UseBevel = True 
    ext.BevelAngle = 45 
    ext.BevelDepth = 0.1 
    ext.UseExtrudeColorForBevel = True 
    ext.ShowBevelOnly = True 
   End If 
  End If 
 Next s 
End Sub