BOTÃO FLUTUANTE - ACOMPANHANDO "ROLAGEM"

[David.sps]

Olá a todos.

Desde já agradeço o tempo investido na leitura/resolução deste simples fato cujo tenho dificuldades.

 

Gostaria que uma imagem (escolhi uma imagem para ser o ícone) acompanhasse a rolagem, ficando este no canto inferior direito da tela, a função deste botão seria levar para a guia menu (podendo ser por hiperlink) a minha dificuldade é manter o botão acompanhando a tabela.

 

Grato.

[Patropi]

Boa noite David

 

Pra facilitar anexe um exemplo da tua planilha.

 

[]s

[David.sps]

Olá Patropi.

Anexei um "exemplo" da pasta de trabalho....

Desde já agradeço.

exemplo.xlsx

[Visitante]

opção 1 - coloque a figura na linha 1, selecione "A2" e no menu "Exibição" clique em "Congelar Paineis". A figura ficará sempre visível.

opção 2 - utilizando macro - após rolar a tela, ao mudar a célula selecionada, a figura será posicionada pelo código no canto inferior direito da tela.

Instale o código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha em que está a figura e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim lgLIN As Long, shFIG As Object Set shFIG = ActiveSheet.Shapes("MENU")    With ActiveWindow.VisibleRange        lgLIN = .Row + .Rows.Count - 2    End With    With shFIG        shFIG.Top = shFIG.Top + (lgLIN - .BottomRightCell.Row) * .BottomRightCell.RowHeight    End WithEnd Sub

 

[David.sps]

Osvaldo.

Mais uma vez lhe agradeço!

Ficou perfeito!

 

Havia tentado o primeiro método antes de abrir o post, mas não gostei muito.....

 

 

Abç!

[Wagner Won Muller Sampaio]

Boa tarde;

 Não consegui executar o código enviado.

 Poderiam enviar uma planilha em anexo para ver como ficou pois pra mim não funcionou.
Versão: Excel 2007