NIM062743 for ArcGIS for Desktop

Número de ID do Erro	NIM062743
Enviado	November 11, 2010
Última Modificação	June 5, 2024
Aplica-se à	ArcGIS for Desktop
Versão encontrada	10.0
Idioma do programa	VBA
Sistema Operacional	Windows OS
Versão do Sistema Operacional	XP
Status	Will Not Be Addressed

Informações Adicionais

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

Solução Provisória

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