Sub Test() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(4, 5, "Highlight your ideas!") s.Text.FontPropertiesInRange(1, 1, cdrWordIndexing).Style = cdrBoldItalicFontStyleEnd Sub