Notifications
Clear all

Ajuda - Trocar um texto por uma imagem

8 Posts
2 Usuários
0 Reactions
1,549 Visualizações
(@diogo-lian)
Posts: 19
Active Member
Topic starter
 

Olá pessoal por favor estou com uma grande dificuldade aqui , fiz um tutorial do youtube pra criar uma lista de nomes e a partir dela trocar imagens , só que quando seleciono minha planilha para IMPRIMIR onde fica a imagem fica desconfigurado só na impressão e na planilha fica certinha não sei mais o que fazer procurei no google e não encontrei :( .

o código está funcionando tudo OK porém na hora de imprimir a foto fica desconfigurada :( .

Aqui duas fotos , uma na planilha e uma quando vai imprimir :

PLANILHA :

IMPRIMINDO :

Aqui o link do vídeo que fiz o tutorial :

https://www.youtube.com/watch?v=bQiAnZD ... Q&index=10

 
Postado : 16/07/2014 8:20 pm
(@diogo-lian)
Posts: 19
Active Member
Topic starter
 

Achei um jeito que vai ficar melhor aqui pra min e talvez pra quem mais precise no fórum !

Link do vídeo : https://www.youtube.com/watch?v=qdwdoGjZoMc

Agora eu gostaria de saber como posso editar o código do vídeo para que ao invés de ler os dados em uma determinada coluna ele verificasse em apenas uma célula específica que aqui é a " C8 " com lista de nomes .

aqui o código do vídeo :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 5 Then
    foto = Target.Value
    ActiveSheet.Image1.Picture = LoadPicture("C:UsersPREFIXDocumentsPrefixPrefix (tudo)Ordens de serviçosModelos no ExcelCom MacroFotosCorte" & foto & ".bmp")
    End If

End Sub

acebei colando o código com o caminho da minha pasta de imagens :mrgreen:

 
Postado : 16/07/2014 10:58 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No serviço não temos acesso ao youtube e nem em drivers virtuais, então não vi seu video nem a imagem, mas se quer somente alterar a condição do evento SelectionChange, é só alterar a linha:

If Target.Column = 5 Then

pela :

If Target.Address = "$C$8" Then

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/07/2014 5:28 am
(@diogo-lian)
Posts: 19
Active Member
Topic starter
 

Obrigado pela resposta mas não funcionou :cry: , nessa célula C8 coloquei uma lista de nomes que esta em outra plan

 
Postado : 17/07/2014 7:18 am
(@diogo-lian)
Posts: 19
Active Member
Topic starter
 

Fiz umas gambiarras aqui to conseguindo só preciso saber como faço pra usar 2 Worksheet no mesmo código tipo duplicar ele sem dar conflito .


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 5 Then
    foto = Target.Value
    ActiveSheet.Image1.Picture = LoadPicture("C:UsersPREFIXDocumentsPrefixPrefix (tudo)Ordens de serviçosModelos no ExcelCom MacroFotosCorte" & foto & ".bmp")
    End If

End Sub

Já tentei colocar Private Sub Worksheet2_SelectionChange(ByVal Target As Range)

Mas não funcionou :|

 
Postado : 17/07/2014 12:05 pm
(@diogo-lian)
Posts: 19
Active Member
Topic starter
 

Fiz umas gambiarras e funcionou aqui vlw

 
Postado : 17/07/2014 9:49 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Obrigado pela resposta mas não funcionou :cry: , nessa célula C8 coloquei uma lista de nomes que esta em outra plan

Apesar de ter colocado como Resolvido, eu não entendi este post, eu orientei conforme sua solicitação no post anterior que era :
ao invés de ler os dados em uma determinada coluna ele verificasse em apenas uma célula específica que aqui é a " C8 "

Tambem não compreendi sua solução postada, é a mesma rotina que iniciou o tópico.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/07/2014 11:01 pm
(@diogo-lian)
Posts: 19
Active Member
Topic starter
 

Obrigado pela resposta mas não funcionou :cry: , nessa célula C8 coloquei uma lista de nomes que esta em outra plan

Apesar de ter colocado como Resolvido, eu não entendi este post, eu orientei conforme sua solicitação no post anterior que era :
ao invés de ler os dados em uma determinada coluna ele verificasse em apenas uma célula específica que aqui é a " C8 "

Tambem não compreendi sua solução postada, é a mesma rotina que iniciou o tópico.

[]s

Então como eu havia falado com o código que você me ajudou não deu certo tive que fazer uma gambiarra em outra planilha com o comando Column mesmo ai coloquei a célula da minha pra enviar dados pra célula da outra planilha !
Obrigado pela atenção no tópico

 
Postado : 18/07/2014 12:44 pm