Home Excel - Dicas Microsoft Excel VBA Excel VBA - Barras e Menus e Botoes Excel planilha vba barra de ferramentas insere barra ferramenta personalizada

Excel planilha vba barra de ferramentas insere barra ferramenta personalizada

E-mail Imprimir PDF

Saberexcel - site das macros

Essas macros do Aprenda Microsoft Excel VBA(Visual Basic Application) -- SaberExcel --, inserem uma barra de ferramenta personalizada com combobox agregado à barra, essa macro que poderá resolver seu problema ela insere essa barra com o combobox na barra, e chama algumas macros através dos botões inseridos

Option Explicit

Sub Barra_Eves_Personalizada()

On Error Resume Next
CommandBars("XL-Eves®").Delete
On Error GoTo 0

With CommandBars.Add(Name:="XL-Eves®")
With .Controls.Add(Type:=msoControlButton)
.Caption = "XL-Eves®"
.OnAction = "msg"
.FaceId = 343
.TooltipText = "Aprender VBA (XL-Eves®)"
End With

With .Controls.Add(Type:=msoControlPopup)
.Caption = "Menu"
.TooltipText = "Inserir ordem crescente e decrescente"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Ordem Crescente"
.FaceId = 210
.OnAction = "crescente"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Ordem Decrescente"
.FaceId = 211
.OnAction = "decrescente"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Deletar_barra"
.FaceId = 507
.OnAction = "deletar_barra"
End With

End With

With .Controls.Add(msoControlDropdown)
.AddItem "AA"
.AddItem "BB"
.AddItem "CC"
.OnAction = "msg"
.TooltipText = "testes com barras"
End With

.Position = msoBarTop
.Visible = True
End With
End Sub

Sub msg()
MsgBox "Aprenda excel vba, Esforce-se! ", vbInformation, "XL-Eves®"
End Sub

Sub crescente()
MsgBox ("Ordem Crescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
End Sub

Sub decrescente()
MsgBox ("Ordem Decrescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
End Sub

Sub deletar_barra()
CommandBars("XL-Eves®").Delete
End Sub

'inserir no módulo workbook

Option Explicit

Private Sub Workbook_Open()
Call Barra_Eves_Personalizada
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("XL-Eves®").Delete
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



 Baixe o exemplo de planilha contendo as macros acima
 Excel planilha vba navegar planihas comobobox drop down proxima anterior (37.23 kB)


Última atualização em Sáb, 13 de Agosto de 2011 17:27  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3939
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23445
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37174
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460003
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA