Visualizador de imagens com base na célula ativa!

2024 - VBA & Macros

Post Recente por Romanha 8 anos atrás

5 Posts

2 Usuários

0 Reactions

1,109 Visualizações

RSS

SeuSaraiva

(@seusaraiva)

Posts: 5

Active Member

Topic starter

Bom dia! Pessoal, tenho uma planilha para controle da minha coleção de filmes! Preciso criar uma área dentro da planilha para mostrar a capa(imagem bitmap) do filme com base na célula ativa, para que ela mude a capa do filme automaticamente(sem precisar dar clicks na linha do filme) quando eu selecionar uma célula da linha em que está o filme! O userform para inserir a imagem junto como cadastro do filme já estão prontos! No Youtube, o cara postou um vídeo de uma planilha basicamente deste jeito, mas ele não responde os comentários e nem e-mails! Segue foto da plan.

link do vídeo

https://www.youtube.com/watch?v=_J6zkH8IpOU

Desde já, imensamente grato!

Postado : 12/04/2017 7:31 am

Romanha

(@romanha)

Posts: 104

Estimable Member

Bom dia, SeuSaraiva!

O Senhor pode nos enviar uma planilha de exemplo para que possamos entender melhor a sua solicitação?

Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.

" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"

Atenciosamente.

Jason Romanha

Postado : 12/04/2017 8:18 am

Romanha

(@romanha)

Posts: 104

Estimable Member

Boa tarde, SeuSaraiva!

O senhor tambem pode colocar uma caixa de imagem e colocar este comando. Lembrando que na planilha ficará apenas o caminho da imagem que irá aparecer na caixa de imagem.
' no inicio dos comando coloque
Public var_foto

Private Sub bt_Procura_Click()
'procurar fotos 
On Error GoTo semimagem
var_foto = Application.GetOpenFilename
foto.Picture = LoadPicture(var_foto)
foto.PictureSizeMode = fmPictureSizeModeStretch
Exit Sub
semimagem:
End Sub

Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.

" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"

Atenciosamente.

Jason Romanha

Postado : 12/04/2017 12:26 pm

SeuSaraiva

(@seusaraiva)

Posts: 5

Active Member

Topic starter

Romanha, meu caro amigo! Grato pela atenção! A sua dica não foi bem do jeito que eu precisava mas ela me fez entender, quase que como em uma epifania, como fazer exatamente como eu tinha idealizado! E te agradeço pq tem quase um mês que tento entender esse esquema! Eu usei um controle de imagem(Activex) e utilizei a seguinte macro para procurar os posters dos filmes.

Private Sub Worksheet_Calculate()
On Local Error Resume Next
Sheets("Plan3").Image1.PictureSizeMode = fmPictureSizeModeStretch
   Sheets("Plan3").Image1.Picture = LoadPicture(ThisWorkbook.Path & "Cartazes" & _
   Sheets("Plan3").Range("V1").Value & ".jpg")
     
If Err Then
    Err.Clear
    Sheets("Plan3").Image1.Picture = LoadPicture(ThisWorkbook.Path & "Cartazes" & "noimage.jpg")
    
End If


End Sub

O outro passo foi fazer uma "gambiarra" criando uma célula(V1) que mostrasse o nome do filme com base na célula ativa, utilizei a fórmula CÉL e uma macro(calculate) e uma tabela pro PROCV(pra fazer a procura do nome do filme).
Pronto! Agora o poster muda automaticamente ao percorrer a planilha!Ficou lindão! Olha a foto!

Postado : 17/04/2017 5:52 am