Método Document.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 objeto Document .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Barra de ferramentasObject | Obrigatório | [IVUIOBJECT] | Uma expressão que retorna um objeto UIObject, que representa as novas barras de ferramentas personalizadas. |
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.