求助，注记修改

<P>注记层中对象可以修改吗，为什么我修改ITtextEement注记对象时（大小、颜色等）总是报自动化错误，哪位高人给予指点一下，代码如下：<BR>Dim pTextSym As IFormattedTextSymbol<BR>Dim pEdit As ITextSymbolEditor<BR>Dim pTextElem As ITextElement<BR>Dim pElem As IElement<BR></P>
<P>If TypeOf pElem Is ITextElement Then<BR>  Set pTextElem = pElem<BR>End If<BR><BR>If Not pTextElem Is Nothing Then<BR>   Set pTextSym = pTextElem.Symbol<BR>   Set pEdit = New TextSymbolEditor<BR>   If pEdit.EditTextSymbol(pTextSym, 0) = True Then<BR>      pTextElem.Symbol = pTextSym 此处会出现自动化错误 <BR>   End If<BR>End If<BR><BR></P><img src="images/post/smile/dvbbs/em12.gif" />

Set pTextElem.Symbol = pTextSym

谢谢。可此处无需set

<P>不知是否有帮助，我这边可以改。</P>
<P><BR>Private Sub Command1_Click()<BR>    Dim pTextSym As IFormattedTextSymbol<BR>    Dim pEdit As ITextSymbolEditor<BR>    Dim pTextElem As ITextElement<BR>    Dim pElem As IElement<BR>    Dim pAC As IClone<BR>    Dim pFE As IEnumFeature<BR>    Dim pAnnoF As IAnnotationFeature<BR>    If mFDO Is Nothing Then Exit Sub</P>
<P>    Set pFE = MapControl1.Map.FeatureSelection<BR>    Set pAnnoF = pFE.Next<BR>    Set pAC = pAnnoF.Annotation<BR>    Set pElem = pAC.Clone<BR>    If TypeOf pElem Is ITextElement Then<BR>        Set pTextElem = pElem<BR>    End If<BR>    If Not pTextElem Is Nothing Then<BR>        Set pTextSym = pTextElem.Symbol<BR>        Set pEdit = New TextSymbolEditor<BR>        If pEdit.EditTextSymbol(pTextSym, 0) = True Then<BR>            pTextElem.Symbol = pTextSym '此处会出现自动化错误<BR>            pTextElem.Text = "Foo"<BR>            pAnnoF.Annotation = pElem<BR>            Dim pFeature As IFeature<BR>            Set pFeature = pAnnoF<BR>            pFeature.Store<BR>        End If</P>
<P>    End If</P>
<P>End Sub</P>

<P>谢谢!已解决</P><img src="images/post/smile/dvbbs/em04.gif" />