Table of contents
TOC
Recolher sumário
Expandir sumário

Método InvisibleApp.SetCustomMenus (Visio)InvisibleApp.SetCustomMenus Method (Visio)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Substitui os menus internos ou personalizados atuais de um aplicativo ou documento.Replaces the current built-in or custom menus of an application or document.

SintaxeSyntax

expressão . SetCustomMenus ( MenusObject )expression . SetCustomMenus( MenusObject )

expressão Uma variável que representa um objeto InvisibleApp .expression A variable that represents an InvisibleApp object.

ParâmetrosParameters

NomeNameObrigatório/opcionalRequired/OptionalTipo de dadosData TypeDescriçãoDescription
MenusObjectMenusObjectObrigatórioRequired[IVUIOBJECT][IVUIOBJECT]Uma expressão que retorna um objeto UIObject que representa os novos menus personalizados.An expression that returns a UIObject object that represents the new custom menus.

Valor de retornoReturn Value

NadaNothing

ComentáriosRemarks

Observação Iniciando com o Visio, a Microsoft Office Fluent interface do usuário (UI) substitui o sistema anterior de camadas de menus, barras de ferramentas e painéis de tarefas. Objetos do VBA e membros que você usou para personalizar a interface do usuário nas versões anteriores do Visio ainda estão disponíveis no Visio, mas eles funcionam de maneira diferente.Note Starting with Visio, the Microsoft Office Fluent user interface (UI) replaces the previous system of layered menus, toolbars, and task panes. VBA objects and members that you used to customize the user interface in previous versions of Visio are still available in Visio, but they function differently.

Se o objeto UIObject foi criado em um processo separado usando o procedimento CreateObject em vez de obter a propriedade apropriada de um aplicativo ou um objeto Document , o método SetCustomMenus retorna um erro.If the UIObject object was created in a separate process by using the CreateObject procedure instead of getting the appropriate property of an Application or Document object, the SetCustomMenus method returns an error.

ExemploExample

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.This Microsoft Visual Basic for Applications (VBA) macro shows how to add a menu and menu item to the user interface, and then replace the built-in menu set with the custom set.

Para restaurar a interface de usuário interna do Microsoft Visio depois de executar essa macro, chame o método Clearcustommenus .To restore the Microsoft Visio built-in user interface after you run this macro, call the ThisDocument.ClearCustomMenus method.


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
© 2018 Microsoft