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