Propriedade MenuItem.ActionText (Visio)

Obtém ou define o texto de ação de um item de menu. Leitura/gravação.

Sintaxe

expression. ActionText

Expressão Uma variável que representa um objeto MenuItem .

Valor de retorno

Cadeia de caracteres

Comentários

O texto de ação é uma cadeia de caracteres que descreve a ação nos itens de menu Desfazer, Refazer e Repetir, no menu Acesso Rápido.

Se a propriedade ActionText estiver vazia e a propriedade CmdNum do objeto for definida como uma das IDs de comando internas do Microsoft Visio, o item usará o texto de ação padrão da interface do usuário interna do Visio.

Exemplo

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como definir a propriedade ActionText de um item de menu. Ela também mostra como adicionar um menu e item de menu ao conjunto de menu da janela de desenho. Este exemplo pressupõe que você já tenha uma macro no projeto atual do Visual Basic. Antes de executar essa macro, substitua macroname pelo nome da macro.

A partir do Microsoft Visio 2002, a propriedade AddOnName usada nesse exemplo não pode executar uma cadeia de caracteres que contém código arbitrário do Microsoft Visual Basic. Para chamar código que em versões anteriores do Visio você teria passado para a propriedade AddOnName, mova o código a um procedimento em um projeto Visual Basic de um documento chamado da propriedade AddOnName, conforme exibido nesse exemplo.

Para restaurar a interface do usuário interna do Microsoft Visio depois de executar essa macro, chame o método ThisDocument.ClearCustomMenus.

 
Public Sub ActionText_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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.