Object Model Reference : Classes : L : Layer : Methods : Layer.CreateParagraphTextWide |
Function CreateParagraphTextWide(Left As Double, Top As Double, Right 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 CreateParagraphTextWide method creates paragraph text, in Unicode, at a specified location on a layer.
Parameter
|
Description
|
Left
|
Specifies the distance from the left side of the paragraph-text frame to the left side of the page frame
|
Top
|
Specifies the distance from the top side of the paragraph-text frame to the top of the page frame
|
Right
|
Specifies the distance from the right side of the paragraph-text frame to the right side of the page frame
|
Bottom
|
Specifies the distance from the bottom of the paragraph-text frame to the bottom of the page frame
|
Text
|
Specifies the text. This parameter is optional.
|
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 VBA example creates a paragraph-text object in Greek.
Sub Test() |
Dim s As Shape |
Set s = ActiveLayer.CreateParagraphTextWide(0, 3, 3, 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.