Layer.CreateArtisticTextWide

Function CreateArtisticTextWide(Left As Double, Bottom As Double, Text As String, [LanguageID As cdrTextLanguage = cdrLanguageNone], [CharSet As cdrTextCharSet = cdrCharSetMixed], [Font As String], [Size As Single], [Bold As cdrTriState = cdrUndefined], [Italic As cdrTriState = cdrUndefined], [Underline As cdrFontLine = cdrMixedFontLine], [Alignment As cdrAlignment = cdrMixedAlignment]) As Shape

Member of Layer

The ArtisticTextWide method creates artistic text in Unicode. You can specify various properties for the text.


Parameters	Description
Left	Specifies the left coordinate
Bottom	Specifies the bottom coordinate
Text	Specifies the text
LanguageID	Specifies the language This parameter is optional, and its default value is cdrLanguageNone (0).
CharSet	Specifies the character set This parameter is optional, and its default value is cdrCharSetMixed (-1)
Font	Specifies the font This parameter is optional.
Size	Specifies the font size This parameter is optional, and its default value is 0.
Bold	Specifies whether to apply boldface This parameter is optional, and its default value is cdrUndefined (-2).
Italic	Specifies whether to apply italics This parameter is optional, and its default value is cdrUndefined (-2).
Underline	Specifies an underline This parameter is optional, and its default value is cdrMixedFontLine (7).
Alignment	Specifies the alignment This parameter is optional, and its default value is cdrMixedAlignment (6).

Creates a Greek text string on the current layer of the active document at the lower-left corner of the current page:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateArtisticTextWide(0, 0, Chr(216) & 
Chr(231) & Chr(241) & _ 
  Chr(233) & Chr(243), cdrGreek, cdrCharSetGreek, "Times New Roman", 
24) 
End Sub