Este fórum está sendo desativado

[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!

[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

[italosst]

funcionou, muito obrigado