MenuItem.AddOnName property (Visio)
Gets or sets the name of an add-on or procedure that is run when its associated menu item is selected. Read/write.
Syntax
expression.AddOnName
expression A variable that represents a MenuItem object.
Return value
String
Remarks
Note
Starting with Visio 2010, the Microsoft Office Fluent user interface (UI) replaced the previous system of layered menus, toolbars, and task panes. VBA objects and members that you used to customize the user interface in previous versions of Visio are still available in Visio, but they function differently.
Assuming that the name of the add-on in the Addons collection is string , if the project of the currently active document (or another project if it is referenced) does not have a procedure named string , or if the arguments passed in string don't match those specified in the procedure, Microsoft Visio runs the add-on named string. If no add-on named string can be found, Visio does nothing and reports no error. (Use the TraceFlags property to monitor the procedures and add-ons that Visio attempts to run.)
If string is an add-on, use the AddOnArgs property to specify arguments to send to the add-on when it is run.
If string is a procedure, specify arguments using procname(arguments) or procname arguments.
When calling a procedure in a standard module it is recommended that you prefix the string with the module name that contains the procedure (for example, moduleName.procName ) because more than one module can have a procedure with the same name.
To call a procedure in a project other than the project of the active document, use the syntax projName.modName.procName (you must have explicitly set a reference to projName in your Visual Basic project).
If the AddOnName property is set, Visio ignores the object's CmdNum property.
Note
Beginning with Visio 2002, the AddOnName property cannot execute a string that contains arbitrary VBA code. To call code that in previous versions of Visio you would have passed to the AddOnName property, move the code to a procedure in a document's VBA project that is called from the AddOnName property.
Example
This VBA macro shows how to set the AddOnName property of a menu item. It also shows how to add a menu and menu item to the Add-ins tab, and how to set some of the menu item's other properties, such as Caption, AddOnArgs, and ActionText.
This example assumes that you already have a macro named macroname in the project of the active document, and that the macro takes an argument called "Arg1." Before running this example, replace macroname with the name of your macro.
To restore the built-in user interface in Microsoft Visio after you run this macro, call the ThisDocument.ClearCustomMenus method.
Public Sub AddOnName_Example()
Dim vsoUIObject As Visio.UIObject
Dim vsoMenuSets As Visio.MenuSets
Dim vsoMenuSet As Visio.MenuSet
Dim vsoMenus As Visio.Menus
Dim vsoMenu As Visio.Menu
Dim vsoMenuItems As Visio.MenuItems
Dim vsoMenuItem As Visio.MenuItem
'Get a UIObject object that represents Visio built-in menus
Set vsoUIObject = Visio.Application.BuiltInMenus
'Get the MenuSets collection
Set vsoMenuSets = vsoUIObject.MenuSets
'Get the drawing window menu set
Set vsoMenuSet = vsoMenuSets.ItemAtID(visUIObjSetDrawing)
'Get the Menus collection.
Set vsoMenus = vsoMenuSet.Menus
'Add a Demo menu before the Window menu
Set vsoMenu = vsoMenus.AddAt(7)
vsoMenu.Caption = "Demo"
'Get the MenuItems collection
Set vsoMenuItems = vsoMenu.MenuItems
'Add a menu item to the new Demo menu
Set vsoMenuItem = vsoMenuItems.Add
'Set the properties for the new menu item
vsoMenuItem.Caption = "¯oname "
vsoMenuItem.AddOnName = "ThisDocument.macroname "
vsoMenuItem.AddOnArgs = "/Arg1 = True"
vsoMenuItem.ActionText = "Run(macroname )"
'Tell Visio to use the new UI when the document is active
ThisDocument.SetCustomMenus vsoUIObject
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for