Compartilhar via

Propriedade Application.CustomMenusFile (Visio)

Obtém ou define o nome do ficheiro que define os menus e aceleradores personalizados para um objeto de Aplicação . Leitura/gravação.

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.

Sintaxe

expressão. CustomMenusFile

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

Valor de retorno

Cadeia de caracteres

Comentários

Se o objeto não estiver usando menus personalizados, a propriedade CustomMenusFile retornará Nothing.

Exemplo

Esta macro do VBA (Microsoft Visual Basic for Applications) mostra como obter a interface de usuário ativa atual do seu documento sem substituir a interface personalizada ao nível do aplicativo. Além disso, ela salva quaisquer menus personalizados existentes em um arquivo e especifica que o documento atual deverá utilizar esses menus. Você terá que escrever código adicional para adicionar seus itens personalizados de interface de usuário.

Cuidado

Esta macro usa a palavra-chave VBA Kill para excluir um arquivo na unidade de disco. Utilize este palavra-chave cuidadosamente, porque não pode anular um comando Eliminar depois de ter sido executado e não receberá uma mensagem de aviso prévia.

 
Sub CustomMenusFile_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim strPath As String 
 
 '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 custom menus, use them. 
 Set vsoUIObject = Visio.Application.CustomMenus 
 
 'Save these custom menus to a file. 
 strPath = Visio.Application.Path & "\CustomUI.vsu" 
 vsoUIObject.SaveToFile (strPath) 
 
 'Set the document to use the existing custom UI. 
 ThisDocument.CustomMenusFile = strPath 
 
 'Get this document's UIObject object. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 
 'Delete the newly created temp file. 
 Kill Visio.Application.Path & "\CustomUI.vsu" 
 ThisDocument.ClearCustomMenus 
 MsgBox "Using Custom Menus", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom menus. 
 Set vsoUIObject = ThisDocument.CustomMenus 
 
 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.

  • Last updated on