Compartilhar via

Método Document.SetCustomMenus (Visio)

Substitui os menus internos ou personalizados atuais de um aplicativo ou documento.

Sintaxe

expressão. SetCustomMenus (MenusObject)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
MenusObject Obrigatório [IVUIOBJECT] Uma expressão que retorna um objeto UIObject, que representa os novos menus personalizados.

Valor de retorno

Nada

Comentários

Observação

A partir do Visio 2010, a interface de utilizador (IU) fluente do Microsoft Office substituiu o sistema anterior de menus em camadas, barras de ferramentas e painéis de tarefas. Os objetos VBA e os membros que utilizou para personalizar a interface de utilizador em versões anteriores do Visio ainda estão disponíveis no Visio, mas funcionam de forma diferente.

Se o objeto UIObject foi criado em um processo separado usando o procedimento CreateObject em vez de obter a propriedade apropriada de um objeto Application ou Document, o método SetCustomMenus retorna um erro.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como adicionar um menu e um item de menu à interface de usuário e, em seguida, substituir o conjunto do menu interno pelo conjunto personalizado.

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

 
Public Sub SetCustomMenus_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 UI object that represents the 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 Demo menu. 
 Set vsoMenu = vsoMenus.AddAt(1) 
 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 = "&Hello" 
 vsoMenuItem.AddOnName = "MsgBox ""Hello""" 
 
 '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.

  • Last updated on