Estoy personalizando un libro excel con una serie de botones opciones dispuesto en la cinta de opciones.
Sub Add_Toolbar2()
Dim TlBar As CommandBar
Dim BarBtn As CommandBarButton
Set TlBar = Application.CommandBars.Add(, , , True)
With TlBar
.name = "DupreeTasks"
.Position = msoBarTop
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize
End With
Set BarBtn = TlBar.Controls.Add(msoControlButton)
With BarBtn
'ADDED HERE!!
.BeginGroup = True
.Caption = "Tom"
.OnAction = "Open_Tom"
.Style = msoButtonCaption
End With
Set BarBtn = TlBar.Controls.Add(msoControlButton)
'ALSO TRIED IT THIS WAY...SAME THING
BarBtn.BeginGroup = False
With BarBtn
.Caption = "Mike"
.OnAction = "Open_Mike"
.Style = msoButtonCaption
End With
'Button.BeginGroup = True
End Sub[/CODE]
Pero los Botones de Opciones aparen Horizontales y NO VERTICALES como yo necesito.
Como puedo hacer para que los CONTROLS.ADD aparezcan uno arriba del otro y no uno al lado del otro.
Muchas gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Estimados,
Estoy personalizando un libro excel con una serie de botones opciones dispuesto en la cinta de opciones.
Pero los Botones de Opciones aparen Horizontales y NO VERTICALES como yo necesito.
Como puedo hacer para que los CONTROLS.ADD aparezcan uno arriba del otro y no uno al lado del otro.
Muchas gracias