Hello,
I am trying to set a background fill on some text in Draw VBA to 0, 0, 0, 0 and it's proving to be a little more difficult than originally planned. Below is what I have so far...
Dim s1 As Shape Set s1 = ActiveLayer.CreateArtisticText(2, 2, "20") s1.TextRange.CharBackFill 0, 0, 0, 0
Also does anyone know how to say "20"" I thought it would be "20" & """ or something, but that doesn't seem to work. Any help is appreciated!
Sub text_fill_and_backfill() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(2, 2, "20" & """") s.Text.Story.Fill.ApplyUniformFill CreateRGBColor(255, 255, 0) s.Text.Story.CharBackFill.ApplyUniformFill CreateRGBColor(0, 0, 0) End Sub
That draws this: