Propriedade Application.CustomMenusFile (Visio)

Obtém ou define o nome do arquivo que define menus e aceleradores personalizados para um objeto Application . Leitura/gravação.

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. 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. Use essa palavra-chave com cuidado, pois você não pode desfazer um comando Kill depois que ele tiver sido executado e você não receberá uma mensagem de aviso anterior.

 
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.