NIM013321 for No Product Found

Bug ID Number	NIM013321
Submitted	November 29, 2007
Last Modified	June 5, 2024
Applies to	No Product Found
Version found	9.2
Program language	VBA
Status	Will Not Be Addressed

Additional Information

No Public Explanation

Workaround

Public Sub SelectGeoDBAnnoByEnvelopeObjectID()Dim pMxDoc As IMxDocumentSet pMxDoc = ThisDocumentDim pMap As IMapSet pMap = pMxDoc.FocusMapDim pFDOGraphicsLayer As IFDOGraphicsLayerSet pFDOGraphicsLayer = pMap.Layer(0)Dim pCmdItem As ICommandItem'Use ArcID module and the Name of the start edit commandSet pCmdItem = Application.Document.CommandBars.Find(arcid.Editor_StartEditing)pCmdItem.ExecuteSet pMap.ActiveGraphicsLayer = pFDOGraphicsLayerDim pGC As IGraphicsContainerSet pGC = pMap.ActiveGraphicsLayerDim pGCSelect As IGraphicsContainerSelectSet pGCSelect = pGCDim pEnumElement As IEnumElementSet pEnumElement = pGC.LocateElementsByEnvelope(pMxDoc.ActiveView.FullExtent)pEnumElement.ResetDim pAnnoElement As IAnnotationElementSet pAnnoElement = pEnumElement.NextDo While Not pAnnoElement Is Nothing Dim pFeature As IFeature Set pFeature = pAnnoElement.Feature If pFeature.OID = "373" Then pGCSelect.SelectElement pAnnoElement End If Set pAnnoElement = pEnumElement.NextLooppMxDoc.ActiveView.RefreshEnd Sub