Propriedade ToolbarSet.Toolbars (Visio)

  • Artigo

Retorna a coleção Toolbars de um objeto ToolbarSet. Somente leitura.

Sintaxe

expression. Toolbars

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

Valor de retorno

Barras de ferramentas

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Toolbars 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 Toolbars_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.