Sub Test() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(4, 5, "Small Caps Text") s.Text.FontProperties.Uppercase = cdrSmallCapsFontCaseEnd Sub