Página 1 de 2

Erro ao clicar em cancelar

Enviado: Ter Jul 03, 2018 8:40 pm
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

Re: Erro ao clicar em cancelar

Enviado: Ter Jul 03, 2018 10:50 pm
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

Re: Erro ao clicar em cancelar

Enviado: Qua Jul 04, 2018 7:33 pm
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)

Re: Erro ao clicar em cancelar

Enviado: Qui Jul 05, 2018 10:03 pm
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)

Re: Erro ao clicar em cancelar

Enviado: Sáb Jul 07, 2018 2:15 pm
por webmaster
Colega,

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

Re: Erro ao clicar em cancelar

Enviado: Ter Jul 10, 2018 7:47 pm
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]

Re: Erro ao clicar em cancelar

Enviado: Ter Jul 10, 2018 8:52 pm
por webmaster
Use o mecanismo de anexos do fórum. Ele aceita extensões zip, rar e 7z

Re: Erro ao clicar em cancelar

Enviado: Ter Jul 10, 2018 9:01 pm
por palomakey
Erro ao carregar foto.rar
(326.47 KiB) Baixado 414 vezes
Ok

Re: Erro ao clicar em cancelar

Enviado: Qua Jul 11, 2018 1:04 pm
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

Re: Erro ao clicar em cancelar

Enviado: Qui Jul 12, 2018 6:53 pm
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