Redefinir imagem no UserForm

2024 - VBA & Macros

Post Recente por fcarlosc 3 anos atrás

5 Posts

3 Usuários

0 Reactions

1,172 Visualizações

RSS

fcarlosc

(@fcarlosc)

Posts: 453

Honorable 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

Imagem-no-UserForm.zip

Postado : 09/10/2021 10:53 am

Anderson

(@anderson)

Posts: 203

Reputable 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

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

Postado : 12/10/2021 8:20 am

fcarlosc

(@fcarlosc)

Posts: 453

Honorable 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

(@edsonbr)

Posts: 1057

Noble 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