Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro ao clicar em cancelar

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Erro ao clicar em cancelar

Mensagem por palomakey »

Boa noite, estou com um problema, tenho um objeto de imagem que clico em um botão para carregar uma foto, ai abre a caixa de pesquisa do windows, se clicar em alguma imagem carrega tudo certinho, mas se clico em cancelar dar erro, poderiam me ajudar a resolver, segue o código que estou usando no botão:

Public Sub BuscarFoto()
fotopasta = Application.GetOpenFilename(FileFilter:="Image Files(*.jpg), *.jpg")
shtCadastro.Image1.Picture = LoadPicture(fotopasta)
End Sub


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro ao clicar em cancelar

Mensagem por webmaster »

Como está usando variáveis sem tipo, recomendo o seguinte:

Código: Selecionar todos

Public Sub BuscarFoto()
fotopasta = Application.GetOpenFilename(FileFilter:="Image Files(*.jpg), *.jpg")
If TypeName(fotopasta) = "String" Then shtCadastro.Image1.Picture = LoadPicture(fotopasta)
End Sub


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Erro ao clicar em cancelar

Mensagem por palomakey »

Olá boa noite, obrigada pela dica.
copiei o código e coloquei, no lugar daquele que postei acima, acho que fiz alguma coisa errada pois continua a dar erro.
Eu não tenho conhecimento em vba por isso estou apanhando.
A minha pasta que tem as fotos chama-se fotos, ela está dentro da pasta onde fica o arquivo do excel.
Poderia me dar uma explicada para eu saber como devo proteger para adaptar o código.
O erro esta nesta parte do código:

If TypeName(fotopasta) = "String" Then shtCadastro.Image1.Picture = LoadPicture(fotopasta)

nessa linha fica grifado em amarelo desta para frente shtCadastro.Image1.Picture = LoadPicture(fotopasta)


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Erro ao clicar em cancelar

Mensagem por palomakey »

Boa noite, não tenho conhecimento em vba , não consegui implantar o código que o webmaster, me indicou .
A minha pasta que tem as fotos chama-se fotos, ela está dentro da pasta onde fica o arquivo do excel.
Poderia me dar uma explicada para eu saber como devo proceder para adaptar o código.
O erro esta nesta parte do código:

If TypeName(fotopasta) = "String" Then shtCadastro.Image1.Picture = LoadPicture(fotopasta)

nessa linha fica grifado em amarelo desta para frente shtCadastro.Image1.Picture = LoadPicture(fotopasta)


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro ao clicar em cancelar

Mensagem por webmaster »

Colega,

Testei o codigo aqui e funciona sem problemas. Chebou a mudar o código? Que tipo de imagem está tentando carregar?


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Erro ao clicar em cancelar

Mensagem por palomakey »

Olá boa noite, não consegui resolver montei um arquivo e estou disponibilizando o link para downloads, para que os amigos entendam melhor o erro, já tentei mas não consegui resolver.
Segue o link:

[REMOVIDO]


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro ao clicar em cancelar

Mensagem por webmaster »

Use o mecanismo de anexos do fórum. Ele aceita extensões zip, rar e 7z


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Erro ao clicar em cancelar

Mensagem por palomakey »

Erro ao carregar foto.rar
(326.47 KiB) Baixado 414 vezes
Ok


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro ao clicar em cancelar

Mensagem por webmaster »

Estranho nao ter funcionado. Tentei este e funcionou:

Código: Selecionar todos

Public Sub BuscarFoto()
fotopasta = Application.GetOpenFilename(FileFilter:="Image Files(*.jpg), *.jpg")
If fotopasta <> False Then shtCadastro.Image1.Picture = LoadPicture(fotopasta)
End Sub


palomakey
Colaborador
Colaborador
Mensagens: 26
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Erro ao clicar em cancelar

Mensagem por palomakey »

Boa noite, no meu pc e do meu serviço está dando o mesmo erro, no meu pc estou utilizando o office 2016 e no trabalho é o 2013.
Não teria uma dica para eu contornar o problema.
Obrigado


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