阅读:1470回复:1
[求助]如何获得Text Element的大小
在AE中,我在PageLayoutControl中加入一个Text Element,我如何获得该文本在PageLayoutControl中的长和宽?<BR>
|
|
1楼#
发布于:2005-11-03 09:45
<DIV>Text符号的应用:</DIV><CODE><PRE>Dim myTxtSym As IFormattedTextSymbol
Set myTxtSym = New TextSymbol '** Set the font for myTxtSym Dim myFont As IFontDisp Set myFont = New StdFont myFont.Name = "Courier New" myFont.Size = 24 myTxtSym.Font = myFont '** Set the Color for myTxtSym to be Dark Red Dim myColor As IRgbColor Set myColor = New RgbColor myColor.Red = 150 myColor.Green = 0 myColor.Blue = 0 myTxtSym.Color = myColor '** Set other properties for myTxtSym myTxtSym.Angle = 0 myTxtSym.RightToLeft = False myTxtSym.VerticalAlignment = esriTVABaseline myTxtSym.HorizontalAlignment = esriTHAFull myTxtSym.CharacterSpacing = 200 myTxtSym.Case = esriTCNormal</PRE></CODE> |
|