Página 1 de 1

Redefinir imagem no UserForm

Enviado: 08 Out 2021 às 18:23
por fcarlosc2018
Boa-noite

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

Re: Redefinir imagem no UserForm

Enviado: 12 Out 2021 às 10:01
por Gerciley
Use a lógica do exemplo em anexo, defina uma imagem padrão. quando clicar no botão redefinir altere o endereço do caminho da imagem para a imagem padrão e recarregue o formulário home.

Ele será recarregado com todas as informações padrão.

Re: Redefinir imagem no UserForm

Enviado: 13 Out 2021 às 14:55
por fcarlosc2018
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".
Código: Selecionar todos
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
Mas não é dessa forma que eu queria.