Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Obtém um objeto UIObject que representa os atuais menus e aceleradores personalizados de um objeto Document. Somente leitura.
Sintaxe
expressão. CustomMenus
expressão Uma variável que representa um objeto documento .
Valor de retorno
UIObject
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 os menus e aceleradores do Microsoft Visio não tiverem sido personalizados, seja através de programação, por uma solução do Visio ou na interface de utilizador, a propriedade CustomMenus devolve Nada.
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.