Parcerias RicardoHorta.Net

O objeto.

• Representa uma barra de comandos ( barra de menus, barra de ferramentas e menus de atalho ) do Excel XP. Pertence à coleção CommandBars, que é a coleção de barras de comandos do Excel XP.

Propriedades.

• AdaptiveMenu, Application, BuiltIn, Context, Controls, Creator, Enabled, Height, Id, Index, Left, Name, NameLocal, Parent, Position, Protection, RowIndex, Top, Type, Visible e Width.

Métodos.

• Delete, FindControl, Reset e ShowPopup.

Sintaxe.

• A sintaxe é: CommandBars("nome da barra") + . + propriedade = valor da propriedade.

Exemplo.

• Você criou uma barra de ferramentas e gostaria que ela fosse...

• ... ativada ao abrir determinada pasta de trabalho. Além disso, você gostaria que ela ficasse, automaticamente, no canto inferior da tela.

• Desse jeito aí. E tudo, automaticamente. Nada de clicar e arrastar.

Programando.

• Pressione [ Alt ] + [ F11 ] ou clique em Ferramentas, posicione o ponteiro em Macro e escolha Editor do Visual Basic.

• Na caixa Projeto, clique 2 vezes em EstaPasta_de_trabalho.

• Clique na seta à direita da caixa Objetos e escolha Workbook.

• Open, o evento padrão da pasta de trabalho, será criado.

• Digite With Application seguido de um ponto ( . ).
• O menu com as propriedades do objeto Application será exibido.

• Clique 2 vezes na coleção CommandBars.

• Digite o nome, entre parênteses e aspas, do objeto CommandBar que será acessado. No bom e sarado português: digite o nome da barra de ferramentas que você criou e deseja ativar.

• Tecle [ Enter ] e complete a instrução: End With.

• Dentro de With...End With, digite outro ponto para exibir o menu com as propriedades da barra de comando.

• Clique 2 vezes em Visible e complete a instrução: Visible = True. Esta linha de comando ativa ( exibe ) a barra de ferramentas.

Definindo a posição da barra.

• Na linha abaixo, digite outro ponto e escolha a propriedade...

• ... Position.
• Em seguida, digite o sinal de igual ( = ) e, no menu que surgir,...

• ... escolha msoBarBottom.

• Este código, irá posicionar a barra de ferramentas no canto inferior da tela.

Testando.

• Retorne a tela do Excel XP.
• Salve as alterações e feche a pasta de trabalho.

• Abra-a, novamente.

• Clique no botão Ativar macros.

• A barra de ferramentas, que você criou, será ativada e posicionada na parte inferior da tela.

• Você poderá alterar a posição,...

• ..., manualmente, como está acostumado(a) a fazer com as barras tradicionais do Excel XP.

Parcerias RicardoHorta.Net

Parcerias RicardoHorta.Net

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