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 With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, _ 8, , cdrExtrudeSolidFill, CreateRGBColor(255, 0, 0)).Extrude .LightPresent(1) = True .LightPosition(1) = cdrLightBackTopRight .LightIntensity(1) = 100 .LightPresent(2) = True .LightPosition(2) = cdrLightFrontCenter .LightIntensity(2) = 50 .LightPresent(3) = False .UseFullColorRange = True End WithEnd Sub