Erro em tempo de execução '53'

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: 2
Registrado em: Ter Jan 10, 2017 1:19 pm
Has thanked: 1 time
Been thanked: 1 time

Erro em tempo de execução '53'

Mensagempor 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.



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
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 06, 2015 7:39 pm
Has thanked: 41 times
Been thanked: 33 times

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

Mensagempor 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 Robles

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

Thiago Azevedo
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Ter Jan 10, 2017 1:19 pm
Has thanked: 1 time
Been thanked: 1 time

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

Mensagempor 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
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 06, 2015 7:39 pm
Has thanked: 41 times
Been thanked: 33 times

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

Mensagempor 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 Robles

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

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.



Voltar para “VBA Básico”

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitante