Página 1 de 1

Imagem na Celula

Enviado: 04 Jun 2019 às 09:30
por zPenguin
Estou precisando criar um sistema que trabalha com bastante imagem, e eu gostaria de saber se é possível vincular uma imagem com a célula sem ser em forma de comentário.
Por exemplo:
Ao clicar na Celula A1, abre uma janela mostrando a imagem referente a célula ou se clicar na Celular A2, abre uma janela mostrando outra imagem referente a célula.

Se alguém puder em ajudar, agradeço desde já.

Re: Imagem na Celula

Enviado: 04 Jun 2019 às 15:27
por LeoHenrique
Boa tarde !!
Se for o que estou imaginando, segue...
O código abaixo localiza a foto pelo caminho "mudar conforme o seu local de origem", lembrando que a foto tem que ser nomeada pelo código que vai buscar !
O código vai localizar a foto pelo código e centralizar dentro da célula.


Sub InsereRedimensionaFotos()


Dim r As Range, sPath As String, shp As Shape
For Each r In Range("B7:B" & Cells(Rows.Count, 2).End(3).Row)
sPath = "S:\Comercial\Usuários\Leandro\Fotos\" & r.Value & ".jpg"
On Error Resume Next
Set shp = ActiveSheet.Shapes.AddPicture(sPath, False, True, _
r.Offset(, 1).Left + r.Offset(, 1).Width * 0.05, _
r.Offset(, 1).Top + r.Offset(, 1).Height * 0.1, _
r.Offset(, 1).Width * 0.9, r.Offset(, 1).Height * 0.8)
On Error GoTo 0
Next r

End Sub

OBS : Código feito pelo nosso colega do fórum "Osvaldomp" ! Obrigado novamente Osvaldo !! Top