Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 14
Registrado em: Qui Jun 22, 2017 7:07 pm

Erro ao clicar em cancelar

Mensagem por palomakey » Ter Jul 03, 2018 8:40 pm

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: 2463
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro ao clicar em cancelar

Mensagem por webmaster » Ter Jul 03, 2018 10:50 pm

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


Tomás
http://www.tomasvasquez.com.br/blog
http://twitter.com/tomamais
Gostou da resposta? Clique no joinha no topo da mensagem!
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

Re: Erro ao clicar em cancelar

Mensagem por palomakey » Qua Jul 04, 2018 7:33 pm

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: 14
Registrado em: Qui Jun 22, 2017 7:07 pm

Re: Erro ao clicar em cancelar

Mensagem por palomakey » Qui Jul 05, 2018 10:03 pm

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: 2463
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro ao clicar em cancelar

Mensagem por webmaster » Sáb Jul 07, 2018 2:15 pm

Colega,

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


Tomás
http://www.tomasvasquez.com.br/blog
http://twitter.com/tomamais
Gostou da resposta? Clique no joinha no topo da mensagem!
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

Re: Erro ao clicar em cancelar

Mensagem por palomakey » Ter Jul 10, 2018 7:47 pm

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: 2463
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro ao clicar em cancelar

Mensagem por webmaster » Ter Jul 10, 2018 8:52 pm

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


Tomás
http://www.tomasvasquez.com.br/blog
http://twitter.com/tomamais
Gostou da resposta? Clique no joinha no topo da mensagem!
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

Re: Erro ao clicar em cancelar

Mensagem por palomakey » Ter Jul 10, 2018 9:01 pm

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



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

Re: Erro ao clicar em cancelar

Mensagem por webmaster » Qua Jul 11, 2018 1:04 pm

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


Tomás
http://www.tomasvasquez.com.br/blog
http://twitter.com/tomamais
Gostou da resposta? Clique no joinha no topo da mensagem!
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

Re: Erro ao clicar em cancelar

Mensagem por palomakey » Qui Jul 12, 2018 6:53 pm

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