Propriedade InvisibleApp.BuiltInMenus (Visio)
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 objeto InvisibleApp .
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de