Compartilhar via

Propriedade UIObject.MenuSets (Visio)

  • Artigo

Retorna a coleção MenuSets de um objeto UIObject. Somente leitura.

Sintaxe

expression. MenuSets

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

Valor de retorno

MenuSets

Comentários

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.

Se um objeto UIObject representa menus e aceleradores (por exemplo, se o objeto foi recuperado usando a propriedade BuiltInMenus de um objeto Application ou Document), sua coleção MenuSets representa todos os menus para aquele objeto UIObject.

Use a propriedade ItemAtID de um objeto MenuSets para recuperar menus para um contexto de janela particular, por exemplo, a janela de desenho. Se um contexto não inclui menus, ele não possui nenhuma coleção MenuSets.

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade MenuSets para obter a coleção MenuSets de um objeto UIObject. Ela adiciona um menu e item de menu ao conjunto de menu da janela de desenho e define as propriedades Caption do menu e do item de menu.

Para restaurar os menus internos do Microsoft Visio depois de executar essa macro, chame o método ThisDocument.ClearCustomMenus.

Public Sub MenuSets_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 Microsoft 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.