NIM062743 for ArcGIS for Desktop

Bug-ID-Nummer	NIM062743
Eingereicht	November 11, 2010
Zuletzt geändert	June 5, 2024
Gilt für	ArcGIS for Desktop
Gefunden in Version	10.0
Programmsprache	VBA
Betriebssystem	Windows OS
Betriebssystemversion	XP
Status	Will Not Be Addressed

Zusätzliche Informationen

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

Workaround

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