Sub Test() Dim s1 As Shape, s2 As Shape Set s1 = ActiveLayer.CreateArtisticText(2, 5, "Some Text") With s1.Text.FontProperties .Name = "Arial" .Size = 48 .Style = cdrBoldFontStyle End With Set s2 = s1.Duplicate(0, 0.5) s1.Flip cdrFlipHorizontal s1.Fill.ApplyFountainFill CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 0), , -90End Sub