Propriedade Application.CustomMenus (Visio)

Obtém um objeto UIObject que representa os menus e aceleradores personalizados atuais de um objeto Application . 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. CustomMenus

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

Valor de retorno

Uiobject

Comentários

Se os menus e aceleradores do Microsoft Visio não tiverem sido personalizados, programaticamente, por uma solução do Visio ou na interface do usuário, a propriedade CustomMenusretornará Nothing.

Exemplo

Esta macro do VBA (Microsoft Visual Basic for Applications) mostra como obter a interface do usuário ativa atual do seu documento sem substituir a interface personalizada ao nível do aplicativo. Você terá que escrever código adicional para adicionar os seus itens personalizados de interface de usuário.

 
Sub CustomMenus_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 
 'Check whether there are custom menus bound to the document. 
 If ThisDocument.CustomMenus Is Nothing Then 
 
 'If not, check whether there are custom menus bound to the application. 
 If Visio.Application.CustomMenus Is Nothing Then 
 
 'If not, use the Visio built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 MsgBox "Using Built-In Menus", 0 
 
 Else 
 
 'If there are existing Visio application-level custom menus, use them. 
 Set vsoUIObject = Visio.Application.CustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom menus. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 End If 
 
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.