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, , cdrExtrudeColorShading, CreateRGBColor(0, 0, 0), CreateRGBColor(255, 255, 255)) With eff.Extrude .UseBevel = True .BevelAngle = 45 .BevelDepth = 0.1 .UseExtrudeColorForBevel = False .BevelColor.RGBAssign 255, 255, 0 End WithEnd Sub