API Documentation > CorelDRAW > 2025-v26 > Layer > IVGLayer
Layer.CreateArtisticText method
Creates artistic text on a layer
Syntax:
Function CreateArtisticText(ByVal Left As Double, ByVal Bottom As Double, ByVal Text As String, Optional ByVal LanguageID As cdrTextLanguage = cdrLanguageNone, Optional ByVal CharSet As cdrTextCharSet = cdrCharSetMixed, Optional ByVal Font As String, Optional ByVal Size As Single = 0, Optional ByVal Bold As cdrTriState = cdrUndefined, Optional ByVal Italic As cdrTriState = cdrUndefined, Optional ByVal Underline As cdrFontLine = cdrMixedFontLine, Optional ByVal Alignment As cdrAlignment = cdrMixedAlignment) As Shape
Parameters:
Name Type Description
Left
Double
Bottom
Double
Text
String
LanguageID
Specifies the language.
CharSet
{cdrCharSetMixed|Specifies the character set.
Font
String
Size
Single
Specifies the font size.
Bold
Specifies whether to apply boldface.
Italic
Specifies whether to apply italics.
Underline
Specifies an underline to apply.
Alignment
Specifies the alignment.
Remarks:
The CreateArtisticText method creates an artistic text object at a specified location on a layer. You can specify various properties for the object.
Examples:
The following VBA 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