ALTERAR PROPRIEDADE PICTURE DE UM CONTROLE VIA VBA
Alguém sabe me dizer como faço para alterar a propriedade Picture de um controle via VBA no excel? Ex: Mudar a imagem de fundo de um userform, image, label...etc.
Private Sub UserForm_Activate()
Label1.Picture = LoadPicture([Ô]C:\Imagem.bmp[Ô])
Me.Picture = LoadPicture([Ô]C:\Imagem.jpg[Ô])
Image1.Picture = LoadPicture([Ô]C:\Imagem.bmp[Ô])
End Sub
Label1.Picture = LoadPicture([Ô]C:\Imagem.bmp[Ô])
Me.Picture = LoadPicture([Ô]C:\Imagem.jpg[Ô])
Image1.Picture = LoadPicture([Ô]C:\Imagem.bmp[Ô])
End Sub
SZBRUUNO,
O código não deu certo aqui, e o problema é que para usar este código tem diretório e fica impossÃvel de mandar o arquivo por email sem as fotos estarem juntas com o arquivo. Tenho este código que estou postando abaixo que não precisa de diretório e tem a função de inserir uma imagem em um controle Image, porém quando fecho o formulário e abro novamente a imagem desaparece, ou seja, o código não está agindo direto na propriedade Picture. Se puder me ajudar agradeço.
Obrigado.
Private Sub CommandButton1_Click()
Dim myPictName As Variant
myPictName = Application.GetOpenFilename _
(filefilter:=[Ô]Picture Files,*.jpg;*.bmp;*.tif;*.gif[Ô])
With myPictName
If myPictName = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(myPictName)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End With
End Sub
O código não deu certo aqui, e o problema é que para usar este código tem diretório e fica impossÃvel de mandar o arquivo por email sem as fotos estarem juntas com o arquivo. Tenho este código que estou postando abaixo que não precisa de diretório e tem a função de inserir uma imagem em um controle Image, porém quando fecho o formulário e abro novamente a imagem desaparece, ou seja, o código não está agindo direto na propriedade Picture. Se puder me ajudar agradeço.
Obrigado.
Private Sub CommandButton1_Click()
Dim myPictName As Variant
myPictName = Application.GetOpenFilename _
(filefilter:=[Ô]Picture Files,*.jpg;*.bmp;*.tif;*.gif[Ô])
With myPictName
If myPictName = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(myPictName)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
End With
End Sub
Aguém tem mais alguma idéia?
Help!!!!!!!!
Olá amigos,
Alguém pode me dizer se existe a possibilidade de fazer isso que estou necessitando? Por favor, preciso de um sinal de vida...rs...rs...
Alguém pode me dizer se existe a possibilidade de fazer isso que estou necessitando? Por favor, preciso de um sinal de vida...rs...rs...
Tópico encerrado , respostas não são mais permitidas