CAIXA DE DIALOGO CARREGAR FIGURA
Alguém sabe me dizer como faço para abrir a caixa de diálogo [Ô]CARREGAR FIGURA[Ô] via código VBA? Esta caixa de diálogo fica no editor vba project na propriedade picture dos controles como: 'Label, image, formulários...etc.
Obrigado
Obrigado
A chamada a caixa de dialogo eh simplesmente uma interface para o usuario interagir.
As properties em si sao do tipo StdPicture ou Picture, logo, voce vai de qualquer forma atribuir valores as propriedades.
O que voce esta querendo fazer na verdade eh manipular a Common Dialog, existem varias classes e exemplos da Common Dialog aqui no site, basta procurar e ver como eh simples usar ela. No final do processo ela te devolve o path do arquivo selecionado, seja imagem, texto ou binario, logo, voce vai rodar e acabar caindo no mesmo loadpicture do comeco da cadeia...
As properties em si sao do tipo StdPicture ou Picture, logo, voce vai de qualquer forma atribuir valores as propriedades.
O que voce esta querendo fazer na verdade eh manipular a Common Dialog, existem varias classes e exemplos da Common Dialog aqui no site, basta procurar e ver como eh simples usar ela. No final do processo ela te devolve o path do arquivo selecionado, seja imagem, texto ou binario, logo, voce vai rodar e acabar caindo no mesmo loadpicture do comeco da cadeia...
WEBMASTER,
Segue link da planilha modelo para entender melhor o que estou querendo dizer. Note que a imagem permanece quando o controle image é inserido direto na planilha, mas quando está em um userform a figura naum fica fixa no formulario. Por isso quero saber como abre a caixa de diálogo CARREGAR FIGURA, talvez me ajude, mas toda ajuda é bem vinda. Pode me ajudar? Desde já agradeço.
Exemplo:
http://www.4shared.com/file/Bg-9GlyY/TESTE_-_IMAGE.html
Segue link da planilha modelo para entender melhor o que estou querendo dizer. Note que a imagem permanece quando o controle image é inserido direto na planilha, mas quando está em um userform a figura naum fica fixa no formulario. Por isso quero saber como abre a caixa de diálogo CARREGAR FIGURA, talvez me ajude, mas toda ajuda é bem vinda. Pode me ajudar? Desde já agradeço.
Exemplo:
http://www.4shared.com/file/Bg-9GlyY/TESTE_-_IMAGE.html
Seria esta a caixa de diálogo na qual estou me referindo. Acho que resolveria o meu problema. Alguém por favor pode me dar um luz?
WEBMASTER,
Olhei os exemplos que tem no fórum, como você tinha me informado, só que todos são para VB e o que eu preciso é VBA pois é no excel. E no excel não conisgo adicionar Common Dialog pois acho que não tem. Preciso de ajuda.
Obrigado
Olhei os exemplos que tem no fórum, como você tinha me informado, só que todos são para VB e o que eu preciso é VBA pois é no excel. E no excel não conisgo adicionar Common Dialog pois acho que não tem. Preciso de ajuda.
Obrigado
Olá PABLOMOREIRAGV
O código abaixo colocado no evento Click de um Command Button abre a caixa de diálogo que você quer e inse a imagem escolhida em um controle Image do VBA. Porém, essa imagem não fica [Ô]fixa[Ô] no controle Image, ou seja, na próxima vez que você abrir o formulário a imagém não será carregada. Carregando a imagem diretamente, ou seja, através de um URL, ela fica fixa. Não sei se isso serve para você. De qualquer forma, aà vai o código.
Private Sub CommandButton1_Click()
Dim img As Variant
img = Application.GetOpenFilename(filefilter:=[Ô]image Files,*.jpg;*.bmp;*.tif;*.gif[Ô], Title:=[Ô]Selecione a imagem...[Ô])
If img = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(img)
End Sub
Alexandre
O código abaixo colocado no evento Click de um Command Button abre a caixa de diálogo que você quer e inse a imagem escolhida em um controle Image do VBA. Porém, essa imagem não fica [Ô]fixa[Ô] no controle Image, ou seja, na próxima vez que você abrir o formulário a imagém não será carregada. Carregando a imagem diretamente, ou seja, através de um URL, ela fica fixa. Não sei se isso serve para você. De qualquer forma, aà vai o código.
Private Sub CommandButton1_Click()
Dim img As Variant
img = Application.GetOpenFilename(filefilter:=[Ô]image Files,*.jpg;*.bmp;*.tif;*.gif[Ô], Title:=[Ô]Selecione a imagem...[Ô])
If img = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(img)
End Sub
Alexandre
Olá ENGALEXANDRE,
O problema é eu queria que carregasse a imagem e ficasse fixa, para que no caso de enviar por email, a imagem aparecer no outro pc também. Se puder baixe deixei com o arquivo modelo no link abaixo, que mostra que é possÃvel se fazer isso em um planilha ficando fixa, mas em um formulário não fica fixa de jeito nenhum. To perdendo os cabelos..rs..rs.rs.....Se puder me ajudar, agradeço.
Obrigado
http://www.4shared.com/file/Bg-9GlyY/TESTE_-_IMAGE.html
O problema é eu queria que carregasse a imagem e ficasse fixa, para que no caso de enviar por email, a imagem aparecer no outro pc também. Se puder baixe deixei com o arquivo modelo no link abaixo, que mostra que é possÃvel se fazer isso em um planilha ficando fixa, mas em um formulário não fica fixa de jeito nenhum. To perdendo os cabelos..rs..rs.rs.....Se puder me ajudar, agradeço.
Obrigado
http://www.4shared.com/file/Bg-9GlyY/TESTE_-_IMAGE.html
Vou dar uma olhada mais tarde e ver o que posso fazer.
Alexandre
Alexandre
Agradeço desde já......
E aà gente alguém tem um palpite?
Ajudem por favor. Alguém por favor me dê um apoio nesta dúvida, pois é de vital importância pra mim. Nos coméntários anteriores tem o link do arquivo exemplo para ajudar. Desde já agradeço.
Tópico encerrado , respostas não são mais permitidas