Notifications
Clear all

Visualizador de imagens com base na célula ativa!

5 Posts
2 Usuários
0 Reactions
1,099 Visualizações
(@seusaraiva)
Posts: 0
New 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)
Posts: 0
New Member
 

Bom dia, SeuSaraiva!

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

 
Postado : 12/04/2017 8:18 am
(@romanha)
Posts: 0
New 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
 
Postado : 12/04/2017 12:26 pm
(@seusaraiva)
Posts: 0
New 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
(@romanha)
Posts: 0
New Member
 

Bom dia! SeuSaraiva.

Que bom de uma maneira ou outra pude ajudar!!

 
Postado : 17/04/2017 6:02 am