删除比例尺等地图修饰就报错

<P>我在程序中想删除原来在ArcMap中生成的比例尺等地图修饰元素，但是总是报错，程序就崩溃了……（pGraphContainer.DeleteElement pElement）</P>
<P>后来我改一下测试的代码如下,错是不会报了，但是结果比例尺删的只剩一个单位“米”了，我又改变了一下元素的大小，已经删除的比例尺标注，横线又回来了，等于没删</P>
<P>帮忙啊，搞了几天了</P>
<P>      Do While Not pElement Is Nothing<br>        If TypeOf pElement Is MapSurroundFrame Then     '如果是地图修饰<br>            Dim pElementPro As IElementProperties2<br>            Set pElementPro = pElement<br>10<br>            Dim pMapSurroundFrame As IMapSurroundFrame<br>            Dim pGraphicsComposite As IGraphicsComposite<br>            Dim pEnumEle As IEnumElement, pEle As IElement<br>    <br>            Set pMapSurroundFrame = pElement<br>            Set pGraphicsComposite = pMapSurroundFrame<br>    <br>            Set pEnumEle = pGraphicsComposite.Graphics(GetActiveView.ScreenDisplay, Nothing)    '？图形化拆分元素<br>            pEnumEle.Reset<br>            Set pEle = pEnumEle.Next<br>20<br>            Do Until pEle Is Nothing<br>                If TypeOf pEle Is GroupElement Then<br>                    Dim pGroupEle As IGroupElement      '组元素<br>                    Set pGroupEle = pEle<br>                    pGroupEle.ClearElements<br>30<br>                Else<br>                    pGraphContainer.DeleteElement pEle  '一般元素<br>                End If<br>                Set pEle = pEnumEle.Next<br>            Loop<br>        End If<br>40</P>

<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em04.gif" /><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em07.gif" />