Erro em tempo de execução '53' [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Thiago Azevedo
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Jan 10, 2017 1:19 pm

Erro em tempo de execução '53' [RESOLVIDO]

Mensagem por Thiago Azevedo » Ter Jan 10, 2017 1:36 pm

Prezados, boa tarde!

Gostaria da ajuda de todos na solução de um problema. Possuo um nível de excel bom, e estou começando incluir o VBA em minha rotina.
Desenvolvi uma planilha de consulta de projetos de engenharia contendo todo os histórico do projeto, incluindo imagens de antes e depois.
Fiz um consulta no fórum, e encontrei uma forma de adicionar tais imagens com o LoadPicture utilizando uma célula com o endereço da imagem. Está funcionando perfeitamente.
O problema é que quando essa imagem não consta no caminho indicado, que é normal no caso, o Excel retorna "Erro em tempo de execução '53': O arquivo não foi localizado".
Através das leituras que fiz no fórum, aprendi que é normal retornar esse erro, caso não haja nenhum arquivo de imagem indicado no caminho. Gostaria de saber se existe um jeito de em vez de retonar o Erro 53, o excel preencha uma célula específica com um texto pré definido, que seria o ideal, ou uma Msg Box informando que não há imagens do projeto em específico.

O código que utilizei é simples:

Plan1.Image1.Picture = LoadPicture(Plan1.Range("z64").Value) - Antes
Plan1.Image1.Picture = LoadPicture(Plan1.Range("z65").Value) - Depois

Agradeço a ajuda de todos.
Editado pela última vez por Thiago Azevedo em Seg Jan 30, 2017 9:47 am, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Consultor
Consultor
Mensagens: 301
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Erro em tempo de execução '53'

Mensagem por srobles » Ter Jan 10, 2017 2:20 pm

Thiago, boa tarde!

Experimente utilizar o seguinte tratamento para o erro :

Código: Selecionar todos

On Error Goto vErro
'Insira o código para carregar a imagem no objeto Image

vErro:
   If err=53 Then 'Se o código de erro retornado for igual 53
      MsgBox "O projeto pesquisado ainda não possui imagens cadastradas!", vbCritical, "Erro"
      ThisWorkBook.Sheets("Plan1").Range("Z64")="Adicione o caminho da imagem"
      ThisWorkBook.Sheets("Plan1").Range("Z65")="Adicione o caminho da imagem"
   End If
Abs


Saulo

" Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond "


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
E agradeça à aqueles que voluntariamente te auxiliaram, clicando no joinha

Thiago Azevedo
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Ter Jan 10, 2017 1:19 pm

Re: Erro em tempo de execução '53'

Mensagem por Thiago Azevedo » Ter Jan 10, 2017 2:55 pm

Perfeito!
Sai melhor do que esperava, muito obrigado!

srobles escreveu:Thiago, boa tarde!

Experimente utilizar o seguinte tratamento para o erro :

Código: Selecionar todos

On Error Goto vErro
'Insira o código para carregar a imagem no objeto Image

vErro:
   If err=53 Then 'Se o código de erro retornado for igual 53
      MsgBox "O projeto pesquisado ainda não possui imagens cadastradas!", vbCritical, "Erro"
      ThisWorkBook.Sheets("Plan1").Range("Z64")="Adicione o caminho da imagem"
      ThisWorkBook.Sheets("Plan1").Range("Z65")="Adicione o caminho da imagem"
   End If
Abs



srobles
Consultor
Consultor
Mensagens: 301
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Erro em tempo de execução '53'

Mensagem por srobles » Ter Jan 10, 2017 3:48 pm

Thiago,

Opa, que bom que ficou como desejado! Favor, edite o título de seu post com o texto [RESOLVIDO], ok?

Quaisquer dúvidas, pode contar com o fórum.

Abs


Saulo

" Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond "


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
E agradeça à aqueles que voluntariamente te auxiliaram, clicando no joinha

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes