Propriedade Application.BuiltInMenus (Visio)

  • Artigo

Retorna um objeto UIObject que representa uma cópia dos menus e aceleradores internos do Microsoft Visio. Somente leitura.

Observação

A partir do Visio 2010, a interface do usuário do Microsoft Office Fluent (interface do usuário) substituiu o sistema anterior de menus em camadas, barras de ferramentas e painéis de tarefas. Objetos VBA e membros que você usou para personalizar a interface do usuário em versões anteriores do Visio ainda estão disponíveis no Visio, mas funcionam de forma diferente.

Sintaxe

expressão. BuiltInMenus

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Uiobject

Comentários

Use a propriedade BuiltInMenus para obter um objeto UIObject e modificar seus menus e aceleradores. Você pode usar o método SetCustomMenus de um objeto Application ou Document para adicionar seus menus e aceleradores personalizados à interface do usuário interna do Visio.

Você também pode usar o método SaveToFile do objeto UIObject para armazenar seus menus em um arquivo e recarregá-los como menus personalizados definindo a propriedade CustomMenusFile de um objeto Application ou Document.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade BuiltInMenus. Ela adiciona um menu e um item de menu à guia Suplementos e define as propriedades Caption do menu e do item de menu.

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

 
Public Sub BuiltInMenus_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 new menu before the Window menu. 
 Set vsoMenu = vsoMenus.AddAt(7) 
 vsoMenu.Caption = "MyNewMenu" 
 
 'Get the MenuItems collection. 
 Set vsoMenuItems = vsoMenu.MenuItems 
 
 'Add a menu item to the new menu. 
 Set vsoMenuItem = vsoMenuItems.Add 
 
 'Set the Caption property for the new menu item. 
 vsoMenuItem.Caption = "&MyNewMenuItem" 
 
 '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.