Programmatically change the properties of a UIToolControl

Summary

This article shows how to change the caption for a UIToolControl using VBA and ArcObjects.

Procedure

1. Start ArcMap.
2. Open the Visual Basic Editor.
   
   
   In ArcMap, select Tools > Macros > Visual Basic Editor.
   
   
3. In the Project Explorer window, expand Project.mxt and select ArcMap Objects > ThisDocument. Right-click and select View Code.
   
   

   Note:
   Code in ThisDocument module will only run in the current map document. To store the code in all your map documents, open the Normal.mxt ThisDocument code module. 

   
   
4. Copy the following into the code module.
   
   

   Code:
   Sub ChangeToolProperties()
   Dim pCommandItem As ICommandItem
   Dim pApp As IApplication
   Set pApp = Application
   Set pCommandItem = Project.ThisDocument.CommandBars.Find("Project.UIToolControl1")
   
   ' Change the tool's caption
   pCommandItem.Style = esriCommandStyleTextOnly
   pCommandItem.Caption = "My Tool"
   
   ' Refresh the command
   pCommandItem.Refresh
   End Sub

   
   
5. Close the Visual Basic Editor.
6. Run the code.
   
   
   A. Click Tools > Macros > Macros to display the Macros dialog box.
   B. Select a macro and click Run.