Usuário com melhor resposta
botão flutuante

Pergunta
-
Olá pessoal! Alguém de vcs poderia me dizer se existe uma macro para deixar o botão flutuante.
Exemplo: Eu tenho uma lista de do tipo questionário e quando eu chego ao final gostaria que o botão gravar que esta ao lado esquerdo acompanha-se a cada movimento qdo eu estive descendo a planilha.
Desde já agradeço se alguém puder me ajudar.
Respostas
-
Olá,
Existem formas mais fáceis de resolver seu problema. Estou supondo que ao clicar no botão, uma macro é executada.
1 - Considere criar um atalho para a sua macro. Pressione Alt+F8 para visualizar as macros e então atribua a macro à um atalho de teclado.
2 - Adicione sua macro no QAT (QAT é a barra de ferramentas de acesso rápido). Para acessar o menu, vá em Arquivo >> Opções >> Barra de Ferramentas de Acesso Rápido.
3 - Crie um botão no seu ribbon para fácil acesso e visibilidade à sua macro: http://www.ambienteoffice.com.br/officevba/nocoes_basicas_sobre_personalizacao_de_ribbons/
Se não quiser nenhuma dessas formas, use a macro abaixo (considerando que o seu botão se chama "Botão 1":
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With ActiveSheet.Shapes("Botão 1")
.Top = ActiveCell.Offset(1).Top
.Left = ActiveCell.Offset(, 2).Left
End With
End SubFelipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Libeck segunda-feira, 7 de maio de 2012 19:03
Todas as Respostas
-
Olá,
Existem formas mais fáceis de resolver seu problema. Estou supondo que ao clicar no botão, uma macro é executada.
1 - Considere criar um atalho para a sua macro. Pressione Alt+F8 para visualizar as macros e então atribua a macro à um atalho de teclado.
2 - Adicione sua macro no QAT (QAT é a barra de ferramentas de acesso rápido). Para acessar o menu, vá em Arquivo >> Opções >> Barra de Ferramentas de Acesso Rápido.
3 - Crie um botão no seu ribbon para fácil acesso e visibilidade à sua macro: http://www.ambienteoffice.com.br/officevba/nocoes_basicas_sobre_personalizacao_de_ribbons/
Se não quiser nenhuma dessas formas, use a macro abaixo (considerando que o seu botão se chama "Botão 1":
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With ActiveSheet.Shapes("Botão 1")
.Top = ActiveCell.Offset(1).Top
.Left = ActiveCell.Offset(, 2).Left
End With
End SubFelipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Libeck segunda-feira, 7 de maio de 2012 19:03
-