Sub Test() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text") With s.Text.FontProperties .Name = "Arial Black" .Size = 150 End With s.Fill.UniformColor.RGBAssign 0, 0, 255 s.Outline.SetProperties 0.01, , CreateRGBColor(0, 0, 0) With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, 8, , cdrExtrudeSolidFill, CreateRGBColor(0, 128, 0)).Extrude .SetBevel 0.05, 45, False .UseExtrudeColorForBevel = False .BevelColor.RGBAssign 255, 255, 0 End WithEnd Sub