Redefinir imagem no...
 
Notifications
Clear all

Redefinir imagem no UserForm


fcarlosc
Posts: 440
Registered
Topic starter
(@fcarlosc)
Reputable Member
Entrou: 6 anos atrás

Boa-dia,

Tenho 2 formulários: Home e Alterar Logotipo
Gostaria que quando "Redefinir" a imagem no formulário (Alterar Logotipo) voltasse a imagem padrão do UserForm (Home).

Teria como fazer essa alteração !?

att,

Francisco

Responder
4 Respostas
Anderson
Posts: 182
Registered
(@anderson)
Estimable Member
Entrou: 2 anos atrás
Private Sub btRedefinir_Click()
On Error GoTo erro_carregamento

        Sheets("Home").Range("A1").Value = ""
        Image1.Visible = False
        Image2.Visible = True
        Home.Picture = LoadPicture("enderecodaimagem")
        Home.PictureSizeMode = fmPictureSizeModeStretch
    
Exit Sub
erro_carregamento:
Exit Sub
End Sub
Responder
fcarlosc
Posts: 440
Registered
Topic starter
(@fcarlosc)
Reputable Member
Entrou: 6 anos atrás

Obrigado pela resposta, mas dessa maneira eu já uso. Gostaria de não precisar usar uma ("logo.jpg") salva em uma pasta e sim usar a imagem que inseri no próprio UserForm que já é a minha "Logo Padrão".
Também consigo fazer com que volte a imagem padrão após eu clicar no botão "Redefinir", só que, fechando a tela "Alterar Logotipo" e fechando a principal "Home" e inicializando novamente a tela "Home".

Mas não é dessa forma que eu queria.

Private Sub btRedefinir_Click()
On Error GoTo erro_carregamento

        Sheets("Home").Range("A1").Value = ""
        Image1.Visible = False
        Image2.Visible = True
    
    Unload Me
    Unload Home
    
    'MsgBox "Logotipo Redefinido Com Sucesso!", vbInformation, "Alterar Logotipo"
    
    Home.Show
    
Exit Sub
erro_carregamento:
Exit Sub
End Sub
Responder
EdsonBR
Posts: 895
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás

Bom dia, @fcarlosc

Tente o seguinte:

No seu UserForm Home, na área de declarações, crie uma variável pública, digamos:

Public origPic As StdPicture

No evento de inicialização do UserForm Home, atribua a foto original a essa variável, assim:

Private Sub UserForm_Initialize()
 '+++++++++++++++
  Set origPic = Me.Picture
 '+++++++++++++++
  On Error GoTo erro_carregamento
    Me.Height = Application.Height
    ...
    etc.
End Sub

 Agora, no código do botão btRedefir do UserForm AlterLogo, acrescente a linha para alterar a picture do UserForm Home para a do conteúdo da variável origPic:

Private Sub btRedefinir_Click()
  On Error GoTo erro_carregamento

        Sheets("Home").Range("A1").Value = ""
        Image1.Visible = False
        Image2.Visible = True
      '++++++++++++++++++++
        Home.Picture = Home.origPic
      '++++++++++++++++++++

Exit Sub
erro_carregamento:
Exit Sub
End Sub
Responder
fcarlosc
Posts: 440
Registered
Topic starter
(@fcarlosc)
Reputable Member
Entrou: 6 anos atrás

Bom-dia, @EdsonBR

     Era exatamente dessa forma que eu pretendia redefinir a Logo do UserForm.

     Obrigado.

     E Anderson, também agradeço por sua resposta.

 

Att,

Francisco

Responder