Layer.CreateArtisticText

Function CreateArtisticText(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 CreateArtisticText method creates an artistic text object at a specified point on a layer. You can specify various properties for the object.


Parameters	Description
Left	Determines the horizontal positioning of the artistic text. This value is measured in document units.
Bottom	Determines the vertical positioning of the artistic text. This value is measured in document units.
Text	Determines the content of the newly created artistic text. The value of the Text parameter becomes the actual text created with the CreateArtisticText method.
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 to apply 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).

The following code example adds the word page: and the page number to the lower-left corner of the active layer of each page:

Sub Test() 
 Dim p As Page 
 For Each p In ActiveDocument.Pages 
  p.ActiveLayer.CreateArtisticText 0, 0, "page: " & p.Index, _ 
   cdrEnglishUS, , "Arial", 6, cdrTrue, cdrTrue, , cdrLeftAlignment 
 Next p 
End Sub