Compartilhar via

Propriedade Application.CustomToolbars (Visio)

  • Artigo

Obtém um objeto UIObject que representa as barras de ferramentas personalizadas e barras de status 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. Barras CustomToolbars

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

Valor de retorno

Uiobject

Comentários

Se as barras de ferramentas e o status do Microsoft Visio não tiverem sido personalizados, programaticamente, por uma solução do Visio ou na interface do usuário, a propriedade CustomToolbarsretornará 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 CustomToolbars_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 
 'Check whether there are custom toolbars bound to the document. 
 If ThisDocument.CustomToolbars Is Nothing Then 
 
 'If not, check whether there are custom toolbars bound to the application. 
 If Visio.Application.CustomToolbars Is Nothing Then 
 
 'If not, use the Visio built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 MsgBox "Using Built-In Toolbars", 0 
 
 Else 
 
 'If there are existing Visio application-level custom toolbars, use them. 
 Set vsoUIObject = Visio.Application.CustomToolbars 
 MsgBox "Using Custom Toolbars", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom toolbars. 
 Set vsoUIObject = ThisDocument.CustomToolbars 
 MsgBox "Using Custom Toolbars", 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.