NIM062743 for ArcGIS for Desktop

Número de ID del error	NIM062743
Enviado	November 11, 2010
Última modificación	June 5, 2024
Relacionado con	ArcGIS for Desktop
Versión encontrada	10.0
Lenguaje del programa	VBA
Sistema operativo	Windows OS
Versión de sistema operativo	XP
Estado	Will Not Be Addressed

Información adicional

VBA is not supported. Please migrate all code to .NET

Solución alternativa

Sub FindBar() Dim pCmdBars As ICommandBars Set pCmdBars = ThisDocument.CommandBars Dim pNewBarX As ICommandBar Set pNewBarX = pCmdBars.Find("MyBar") ' If Find method did not get the new command bar above, retry ' with the prefix "Normal". If pNewBarX Is Nothing Then Set pNewBarX = pCmdBars.Find("Normal.MyBar") ' If Find method did not get the new command bar above, retry ' with the prefix "Project". If pNewBarX Is Nothing Then Set pNewBarX = pCmdBars.Find("Project.MyBar") If pNewBarX Is Nothing Then MsgBox "pNewBarX is still Nothing" End If End If End If pNewBarX.Add ArcID.File_AddData pNewBarX.Add ArcID.PanZoom_FullExtentEnd Sub