NIM062743 for ArcGIS for Desktop

Numéro d’ID de bogue	NIM062743
Envoi	November 11, 2010
Dernière modification	June 5, 2024
S’applique à	ArcGIS for Desktop
Version trouvée	10.0
Langue du programme	VBA
Système d’exploitation	Windows OS
Version du système d’exploitation	XP
Statut	Will Not Be Addressed

Informations supplémentaires

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

Solution de contournement

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