|
Compre
en línea y aproveche las espectaculares ofertas COMPAQ.
Eres el visitante
Nº
|
Como crear una
Barra de Herramientas con iconos personalizados
Los
ejemplos mostrados en esta sección se encuentran comprimidos en formato *.zip.
Presione
aquí para descargar este ejemplo. commandbarwithcustumicons.zip
  .
Aprenda
a crear sus propias barras de herramientas con iconos personalizados con este
archivo Excel de ejemplo.
El
siguiente código en VBA se encuentra en el Modulo1 del Editor de Visual Basic y
es el que crea la barra de comandos personalizada.
Para
ver el código desde el editor de Visual Basic, presione simultáneamente las
teclas ALT+F11, desde Excel.
Option Explicit
Const ThisCommandBarName As String = "Custom Command Bar
Name"
Sub CreateCustomCommandBar()
Dim cb As CommandBar, cbMenu
As CommandBarPopup, cbButton As CommandBarButton
DeleteCustomCommandBar
Set cb =
Application.CommandBars.Add(ThisCommandBarName, msoBarTop,
False, True)
Set cbMenu = cb.Controls.Add(msoControlPopup, , , ,
True)
With cbMenu
.Caption = "&Mi menú"
.Tag = "MyTag"
End With
With cbMenu.Controls.Add(msoControlButton, 1, , ,
True)
.Caption = "&MenuItem1"
.OnAction = ThisWorkbook.Name & "!Macroname"
End With
With cbMenu.Controls.Add(msoControlButton, 1, , ,
True)
.Caption = "Menu&Item2"
.OnAction = ThisWorkbook.Name & "!Macroname"
End With
With cbMenu.Controls.Add(msoControlButton, 1, , ,
True)
.Caption = "&Borrar esta barra de comandos"
.OnAction = ThisWorkbook.Name & "!DeleteCustomCommandBar"
.FaceId = 67
.Style = msoButtonIconAndCaption
.BeginGroup = True
End With
Set cbButton = cb.Controls.Add(msoControlButton, , , ,
True)
With cbButton
.Caption = "&Botón1"
.FaceId = 59
.Style = msoButtonIcon
.OnAction = ThisWorkbook.Name & "!Macroname"
.TooltipText = "Este botón utiliza un icono existente en Excel"
End With
Set cbButton = cb.Controls.Add(msoControlButton, , , ,
True)
With cbButton
.Caption = "&Botón2"
.Style = msoButtonIcon
.OnAction = ThisWorkbook.Name & "!Macroname"
shtCustomIcons.Shapes("CustomIcon1").Copy
.PasteFace
.TooltipText = "Este botón utiliza un icono personalizado"
End With
Set cbButton = cb.Controls.Add(msoControlButton, , , , True)
With cbButton
.Caption = "&Botón3"
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!Macroname"
shtCustomIcons.Shapes("CustomIcon2").Copy
.PasteFace
.TooltipText = "Este botón utiliza un icono personalizado"
End With
cb.Visible = True
Set cbButton = Nothing
Set cbMenu = Nothing
Set cb = Nothing
End Sub
Sub DeleteCustomCommandBar()
On Error Resume Next
Application.CommandBars(ThisCommandBarName).Delete
On Error GoTo 0
End Sub
Sub Macroname()
If Application.CommandBars.ActionControl Is
Nothing Then
MsgBox "Agregue aquí su código", vbInformation, ThisWorkbook.Name
Else
MsgBox "Agregue aquí su código",
vbInformation, _
"Comenzado por " & Application.CommandBars.ActionControl.Caption
End If
End Sub
<---volver
|
