Object Model Reference : Classes : L : Layer : Methods : Layer.CreateArtisticTextWide
|
|
| Object Model Reference : Classes : L : Layer : Methods : 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, at a specified location on a layer. You can specify various properties for the text.
|
Parameter
|
Description
|
|
Left
|
Specifies the horizontal positioning of the artistic text. This value is measured in document units.
|
|
Bottom
|
Specifies the vertical positioning of the artistic text. This value is measured in document units.
|
|
Text
|
Specifies the content for the artistic 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 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).
|
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.