Página 1 de 1

Imagem acompanhando barra de rolagem

Enviado: 30 Set 2020 às 10:01
por italosst
Olá, bom dia à todos

Sou bem novato em uso de macros e VBA

Gostaria de fazer com que a imagem acompanhasse a barra de rolagem.

Pesquisei aqui no forum e só encontrei sobre botão flutuante, é possível fazer o mesmo com uma imagem?

Obrigado!

Imagem acompanhando barra de rolagem

Enviado: 30 Set 2020 às 10:28
por AfonsoMira
Boas,
Sim dá para fazer o mesmo com uma imagem.

Apenas altere o nome de sua imagem para "Imagem".

Aqui está o código:
Código: Selecionar todos
'Evento change da worksheet (Quando a seleção da célula é alterada)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Com a imagem fazer...
 With ActiveSheet.Shapes.Range(Array("Imagem"))
'andar para os lados, para alterar a posição desejada deve alterar os números dentro dos () ao seu gosto.  
.Left = ActiveWindow.VisibleRange(2, 2).Left
'andar para cima ou para baixo,para alterar a posição desejada deve alterar os números dentro dos () ao seu gosto.
  .Top = ActiveWindow.VisibleRange(20, 2).Top
 End With
End Sub
Alguma dúvida basta perguntar :D

Re: Imagem acompanhando barra de rolagem

Enviado: 30 Set 2020 às 10:46
por italosst
funcionou, muito obrigado :D