Propriedade Document.CustomMenusFile (Visio)

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

Sintaxe

expressão. CustomMenusFile

Expressão Uma variável que representa um objeto Document .

Valor de retorno

Cadeia de caracteres

Comentários

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.

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.

Observação

Esta macro usa a palavra-chave VBA Kill para excluir um arquivo na unidade de disco. Use essa palavra-chave com cuidado, porque não é possível desfazer um comando Kill depois que ele for executado e nenhuma mensagem de advertência será exibida.

 
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.