Propiedad MenuItem.AddOnArgs (Visio)

Obtiene o establece la cadena de argumento que se envía al complemento asociado con un elemento de menú determinado. Lectura y escritura.

Sintaxis

expresión. AddOnArgs

expresión Variable que representa un objeto MenuItem .

Valor devuelto

Cadena

Observaciones

Nota:

A partir de Visio 2010, la interfaz de usuario (UI) de Microsoft Office Fluent reemplazó al sistema anterior de menús, barras de herramientas y paneles de tareas por capas. Los objetos vba y los miembros que usó para personalizar la interfaz de usuario en versiones anteriores de Visio siguen estando disponibles en Visio, pero funcionan de forma diferente.

La cadena de un argumento puede ser cualquier cosa apropiada para el complemento. Sin embargo, los argumentos se incluyen junto a otra información en una cadena de comando, que no puede superar los 127 caracteres. Para obtener los mejores resultados, limite la longitud de los argumentos a 50 caracteres.

La propiedad AddOnName de un objeto indica el nombre del complemento al que se envían los argumentos.

A partir de Visio 2002, la propiedad AddOnName utilizada en el ejemplo siguiente no puede ejecutar una cadena que contenga código arbitrario de Microsoft Visual Basic. Para ejecutar código que en versiones anteriores de Visio se habría pasado a la propiedad AddOnName, muévalo a un procedimiento del proyecto de Visual Basic de un documento al que se llame desde la propiedad AddOnName, como se muestra en el ejemplo siguiente.

Ejemplo

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo establecer la propiedad AddOnArgs de un elemento de menú. También muestra cómo agregar un menú y un elemento de menú al conjunto de menús de la ventana de dibujo y cómo establecer algunas de las propiedades del elemento de menú, como Caption, AddOnName y ActionText.

En este ejemplo se supone que ya tiene una macro en el proyecto actual de Visual Basic y que esa macro toma un argumento denominado "Arg1". Antes de ejecutar este ejemplo, reemplace "macroname" por el nombre de su macro.

Para restaurar la interfaz de usuario integrada después de ejecutar esta macro, use el método ThisDocument.ClearCustomMenus.

 
Public Sub AddOnArgs_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 = "&macroname " 
 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.