Método Application.SetCustomToolbars (Visio)

Substitui as barras de ferramentas internas ou personalizadas atuais de um aplicativo ou documento.

Sintaxe

expressão. SetCustomToolbars (ToolbarsObject)

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

Parâmetros

Valor de retorno

Nada

Comentários

Se o objeto ToolbarsObject foi criado em um processo separado usando o método VBA CreateObject em vez de obter a propriedade apropriada de um objeto Application ou Document , o método SetCustomToolbars retornará um erro.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar o método SetCustomToolbars para substituir o conjunto da barra de ferramentas interna pelo conjunto personalizado. Ela recupera uma cópia das barras de ferramentas internas do Visio, adiciona uma barra de ferramentas e um botão da barra de ferramentas, define o ícone do botão e substitui o conjunto da barra de ferramentas.

Antes de executar essa macro, substitua path\filename no código pelo caminho completo para e nome do arquivo de um arquivo de ícone (.ico) em seu computador.

Public Sub SetCustomToolbarItems_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbar As Visio.Toolbar 
 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) 
 
 'Create a new toolbar 
 Set vsoToolbar = vsoToolbarSet.Toolbars.Add 
 
 With vsoToolbar 
 .Caption = "test" 
 .Position = visBarFloating 
 .Left = 300 
 .Top = 200 
 
 .Protection = visBarNoHorizontalDock 
 .Visible = True 
 .Enabled = True 
 End With 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbar.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.