Parceria RicardoHorta.Net + SUBMARINO !

Newsletter

Controle de Ponto 1.0 - Texto de Apoio: O objeto CommandBar.

• 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.

SUBMARINO: Fácil ! Rápido ! Seguro !

Propriedade DisplayFormulaBar: Aplica-se ao objeto.

• Application.

Função.

• Exibe / oculta a barra de fórmulas.

Sintaxe

• Application + . + DisplayFormulaBar = True ou False.

Exemplo.

• Para ocultar a barra de fórmulas, siga a receita de bolo.
• Crie uma pasta.
• Em seguida, pressione [ Alt ] + [ F11 ] ou clique em Ferramentas, Macro, Editor do Visual Basic.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na caixa Geral, selecione Workbook e...

• ... a procedure referente ao evento Open será criada.

• Digite Application, seguido de um ponto ( . ).

• No menu, escolha DisplayFormulaBar.

• Acrescente o sinal de igual ( = ) e clique 2 vezes em False.

• O código ficará assim.

Testando.

• Retorne à tela do Excel XP.

• Salve as alterações e feche a pasta de trabalho.

• Abra-a, novamente.

• Clique em Ativar macros.

• A barra de fórmulas ficará desativada.

Retornando o padrão.

• Para ativar a barra de fórmulas, abra a tela do Editor do VBA.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na janela Procedimento, selecione o evento BeforeClose.

• E digite: Application.DisplayFormulaBar = True.

Por que preciso reativar a barra de fórmulas ?

• Porque ela ficará desativada para as outras pastas de trabalho que você abrir ou criar. Por isso, não se esqueça de retornar o padrão do Excel XP, utilizando o evento BeforeClose.
• A desativação da barra de fórmulas prevalece para todas as pastas de trabalho, entendeu amigo(a) internauta ?

Parceria RicardoHorta.Net + SUBMARINO !

Propriedade DisplayHorizontalScrollbar - Aplica-se ao objeto.

• ActiveWindow.

Função.

• Exibe / oculta a barra de rolagem horizontal da janela ativa.

Sintaxe

• ActiveWindow.DisplayHorizontalScrollBar = True ou False.

Exemplo.

• Por padrão, a barra de rolagem horizontal está ativada, quando uma pasta de trabalho é aberta.

• Para desativá-la, você pode, por exemplo, utilizar o evento Open do objeto Workbook.

• Ao abrir a pasta .xls, a propriedade DisplayHorizontalScrollbar será desativada.

• Para reativá-la, você pode, entre as diversas opções, trabalhar com o evento BeforeClose.

• E tudo voltará a ser como antes.

Parceria RicardoHorta.Net + SUBMARINO !

Propriedade DisplayVerticalScrollBar - Aplica-se ao objeto.

• ActiveWindow.

Função.

• Exibe / oculta a barra de rolagem vertical da janela ativa.

Sintaxe

• ActiveWindow.DisplayVerticalScrollBar = True ou False.

Exemplo.

• False ...

• ... oculta a barra de rolagem vertical.

• Para exibi-la, novamente, você pode utilizar eventos da pasta de trabalho, botões de comando, enfim,...

• ... o leque de opções é imenso.

SUBMARINO: Fácil ! Rápido ! Seguro !

Propriedade DisplayScrollBars - Aplica-se ao objeto.

• Application.

Função.

• Exibe / oculta as barras de rolagem.

Sintaxe

• Application + . + DisplayScrollBars = True ou False.

Exemplo.

• Para ocultar as barras de rolagem, horizontal e vertical, ao mesmo tempo, utilizando VBA, pressione [ Alt ] + [ F11 ] ou clique em Ferramentas, Macro, Editor do Visual Basic.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na caixa Geral, selecione Workbook e...

• ... a procedure referente ao evento Open será criada.

• Digite Application, seguido de um ponto ( . ).

• No menu, escolha DisplayScrollBars.

• Acrescente o sinal de igual ( = ) e clique 2 vezes em False.

• O código ficará assim.

Testando.

• Retorne à tela do Excel XP.

• Salve as alterações e feche a pasta de trabalho.

• Abra-a, novamente.

• Clique em Ativar macros.

• As barras de rolagem serão desativadas.

• Com o código Application.DisplayScrollBars=False, você desativa as barras de rolagem de todas as pastas de trabalho.

Retornando o padrão.

• Para ativar as barras de rolagem, você pode utilizar o evento BeforeClose da pasta de trabalho.
• Abra a tela do Editor do VBA.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na janela Procedimento, selecione o evento BeforeClose.

• E digite: Application.DisplayScrollBars = True.

Parceria RicardoHorta.Net + Americanas.com !!

Propriedade DisplayStatusBar - Aplica-se ao objeto.

• Application.

Função.

• Exibe / oculta a barra de status.

Sintaxe

• Application + . + DisplayStatusBar = True ou False.

Exemplo.

• Para ocultar a barras de status, utilizando o VBA,...

• ... pressione [ Alt ] + [ F11 ] ou clique em Ferramentas, Macro, Editor do Visual Basic.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na caixa Geral, selecione Workbook e...

• ... a procedure referente ao evento Open será criada.

• Digite Application, seguido de um ponto ( . ).

• No menu, escolha DisplayStatusBar.

• Acrescente o sinal de igual ( = ) e clique 2 vezes em False.

• O código ficará assim.

Testando.

• Retorne à tela do Excel XP.

• Salve as alterações e feche a pasta de trabalho.

• Abra-a, novamente.

• Clique em Ativar macros.

• A barra de status será desativada.

• Com o código Application.DisplayStatusBar=False, você desativa a barra de status para todas as pastas de trabalho.

Retornando o padrão.

• Para recuperar o padrão do Excel XP, você pode utilizar o evento BeforeClose.
• Abra a tela do Editor do VBA.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.

• Na janela Procedimento, selecione o evento BeforeClose.

• E digite: Application.DisplayStatusBar = True.

SUBMARINO: Fácil ! Rápido ! Seguro !

SUBMARINO: Fácil ! Rápido ! Seguro !

www.ricardohorta.net - Direitos adquiridos - Autor: Ricardo Horta