SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

CommandBarComboBox - O objeto.

• Representa um controle de caixa de combinação em uma barra de comandos.

Propriedades.

• Application, BeginGroup, BuiltIn, Caption, Creator, DescriptionText, DropDownLines, DropDownWidth, Enabled, Height, HelpContextId, HelpFile, Id, Index, IsPriorityDropped, Left, List, ListCount, ListHeaderCount, ListIndex, OLEUsage, OnAction, Parameter, Parent, Priority, Style, Tag, Text, TooltipText, Top, Type, Visible e Width.

Métodos.

• AddItem, Clear, Copy, Delete, Execute, Move, RemoveItem, Reset e SetFocus.

Eventos.

• Change.

Exemplo.

• Você criou um aplicativo no Excel XP e deseja inserir, na barra de ferramentas Padrão, uma caixa de opções...

• ... para substituir as tradicionais guias microsoftianas.

• Ok, microsoftiano(a).
• Abra uma pasta e...

• ... altere os...

• ... nomes das...

• ... planilhas.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Salvando.

• Clique no botão Salvar,...

• ... defina o local e...

• ... o nome.

• Pasta criada, vamos programar.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Módulo para armazenar o código.

• Abra o Editor VBA e...

• ... insira um módulo,...

• ... para receber a programação VBA.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Companheiras de trabalho.

• Declare as variáveis CaixaOpcoes,...

• ... como objeto CommandBarComboBox e...

• ... Planilha,...

• ... como objeto Worksheet.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Rotina CriaCaixaOpcoes - 01.

• Com esta rotina,...

• ... adicione...

• ... à coleção de controles...

• ... da barra de ferramentas Padrão...

• ... um controle do tipo msoControlComboBox.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Rotina CriaCaixaOpcoes - 02.

• Com With CaixaOpcoes... End With,...

• ... acesse as propriedades do controle que está sendo criado.

• Para Caption,...

• ... informe Planilhas.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Formando a lista.

• Para cada planilha na coleção Worksheets,...

• ... utilize o método...

• ... AddItem,...

• ... para adicionar os nomes definidos nas guias.

As propriedades Style, Tag e Visible.

• Faça Style =...

• ... msoComboNormal,...

• ... Tag =...

• ... "PlanilhasRH",...

• ... OnAction = ...

• ... "AtivaPlanilha" e...

• ... Visible = True.

• Aí está o código completo.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Ativando planilhas.

• Em seguida, crie a rotina para...

• ... ativar a planilha, selecionada na caixa de opções.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

A rotina para deletar o controle da barra Padrão.

• Em ExcluiCaixaOpcoes,...

• ... declare Caixa como objeto CommandBarControl.

• Pesquise na coleção de controles,...

• ... da barra de ferramentas,...

• ... a caixa de opções...

• ... criada por você.

• Achou a dita cuja ? Então, microsoftiano(a) esperto(a), extermine-a.

• A rotina ficará assim.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Workbook, Open e BeforeClose.

• Em EstaPasta_de_trabalho,...

• ... na janela Objeto,...

• ... acesse Workbook e,...

• ... no evento Open, execute CriaCaixaOpcoes.

• Em Procedimento,...

• ... localize BeforeClose e...

• ... delete o controle personalizado.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Teste - 01.

• Salve as alterações,...

• ... feche o Editor e...

• ... a pasta Excel.

• Abra ela, novamente e...

• ... clique em Ativar macros.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Teste - 02.

• O controle será criado.

• Caption trabalhando,...

• ... selecione uma das opções.

• Observe que...

• ... a planilha correspondente será ativada.

• Você não precisará das guias para...

• ... alternar entre as planilhas.

• Agora, vamos ao outro teste.
• Feche a janela e...

• ... o dito cujo será transformado em pó.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta