CAIXA DE DIALOGO CARREGAR FIGURA

PABLOMOREIRAGV 08/10/2010 09:43:59
#354681

Gente, to aceitando qualquer opinião. Se alguém acha que é impossível solucionar a questão, por favor, poste aqui o que acha, que eu desisto e fecho o tópico...rs..rs...

Obrigado!

PABLOMOREIRAGV 11/10/2010 11:15:52
#354826

Oi gente,

Encontrei este código que parece que muda apenas o design da janela, porque o que se refere a fixação da imagem no formulário infelizmente ainda não consigui, porque depois que insiro a imagem e fecho o formulário, ao abrir o mesmo a imagem não está mais lá. Ajudem por favor.


Private Sub CommandButton1_Click()

Set CaixaDialogo = Application.FileDialog(msoFileDialogFilePicker)

With CaixaDialogo
.Title = [Ô]Relatório de Fotos[Ô]
.InitialView = msoFileDialogViewPreview
.AllowMultiSelect = False
If .Show = -1 Then

EnderecoImagem = .SelectedItems(1)
Image1.Picture = LoadPicture(.SelectedItems(1))

End If
End With


End Sub

PABLOMOREIRAGV 13/10/2010 08:48:00
#354965

Olá,

Por favor gente, ninguém tá postando nada, nem pra dizer que isso não é possível. Alguém pode me dar um apoio? Pelo ao menos um sinal de vida.

Obrigado...