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 sEnd Sub