Compartilhar via

Propriedade UIObject.ToolbarSets (Visio)

  • Artigo

Retorna a coleção ToolbarSets de um objeto UIObject . Somente leitura.

Sintaxe

expression. ToolbarSets

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

Valor de retorno

ToolbarSets

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 um objeto UIObject representar barras de ferramentas (por exemplo, se o objeto tiver sido recuperado, usando a propriedade BuiltInToolbars de um objeto Application), a respectiva coleção ToolbarSets representará todas as barras de ferramentas desse objeto UIObject.

Use a propriedade ItemAtID de um objeto ToolbarSets para recuperar barras de ferramentas para um contexto de janela particular, por exemplo, a janela de desenho. Se um contexto não inclui barras de ferramentas, ele não possui nenhuma coleção ToolbarSets.

Exemplo

Essa macro do Microsoft Visual Basic (VBA) mostra como usar a propriedade ToolbarSets para obter um objeto particular em uma coleção. Ela também mostra como obter uma cópia das barras de ferramentas internas do Visio, adicionar um botão da barra de ferramentas, definir um ícone de botão e substituir o conjunto de barra de ferramentas interna pelo conjunto personalizado.

Antes de executar esse código, substitua path\filename pelo caminho completo para e o nome de um arquivo (.ico) de ícone válido em seu computador.

Para restaurar as barras de ferramentas internas do Visio após executar essa macro, chame o método ThisDocument.ClearCustomToolbars.

 
Public Sub ToolbarSets_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbarItems As Visio.ToolbarItems 
 Dim vsoToolbarItem As Visio.ToolbarItem 
 
 'Get the UIObject object for the copy of the built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 
 'Get the drawing window toolbar sets. 
 'NOTE: Use ItemAtID to get the toolbar set. 
 'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work. 
 Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbarSet.Toolbars(0).ToolbarItems 
 
 'Add a new button in the first position. 
 Set vsoToolbarItem = vsoToolbarItems.AddAt(0) 
 
 'Set properties for the new toolbar button. 
 vsoToolbarItem.CntrlType = visCtrlTypeBUTTON 
 vsoToolbarItem.CmdNum = visCmdPanZoom 
 
 'Set the toolbar button icon. 
 vsoToolbarItem.IconFileName "path\filename" 
 
 'Use the new custom UI. 
 ThisDocument.SetCustomToolbars vsoUIObject 
 
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.