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
Professor
Professor
Mensagens: 432
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].

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
Professor
Professor
Mensagens: 432
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].

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