Notifications
Clear all

Redefinir imagem no UserForm

5 Posts
3 Usuários
0 Reactions
1,166 Visualizações
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

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

 
Postado : 09/10/2021 10:53 am
(@anderson)
Posts: 0
New Member
 
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
 
Postado : 12/10/2021 8:20 am
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

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
 
Postado : 13/10/2021 2:59 pm
(@edsonbr)
Posts: 0
New Member
 

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
 
Postado : 22/10/2021 2:05 am
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

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

 
Postado : 22/10/2021 11:05 am