Excel Código em VBA para limpar todos os dados e imagem carregada

[Jvitorino1007]

TABELA Funcao Sobrecorrente v6.1.xlsPessoal Bom dia, sou muito novo em programação em VBA. Já fiz outra pergunta aqui e deu certo.

Só que agora eu criei um botão para limpar a minha pesquisa deu certo, mas queria que o gráfico que foi carregado fosse apagado também. Porque eu só consigo reiniciar o ciclo do programa se fechar e abrir ele. Vou deixar ele em anexo, e peço por gentileza que alguém me ajude por favor. Obrigado

 

 

TABELA Funcao Sobrecorrente v6.1.xls

[Visitante]

 

Experimente:

 

Me.Image1.Picture = LoadPicture("")

 

[Jvitorino1007]

2 horas atrás, osvaldomp disse:

 

Experimente:

 

Me.Image1.Picture = LoadPicture("")

 

Boa noite amigo, mas eu coloco junto com o botão que limpa? Se sim em qual parte seria?

[Visitante]

Private Sub CommandButton1_Click()
 Dim objeto As Control
  For Each objeto In Me.Controls
  If TypeName(objeto) = "TextBox" Or TypeName(objeto) = "ComboBox" Then
  objeto.Text = ""
  End If
  Next objeto
  Me.Image1.Picture = LoadPicture("")
End Sub

[Jvitorino1007]

@osvaldomp muito obrigado

16 horas atrás, osvaldomp disse:

 

Experimente:

 

Me.Image1.Picture = LoadPicture("")

 

Boa noite amigo, mas eu coloco junto com o botão que limpa? Se sim em qual parte seria?

adicionado 1 minuto depois

3 horas atrás, osvaldomp disse:

Private Sub CommandButton1_Click()
 Dim objeto As Control
  For Each objeto In Me.Controls
  If TypeName(objeto) = "TextBox" Or TypeName(objeto) = "ComboBox" Then
  objeto.Text = ""
  End If
  Next objeto
  Me.Image1.Picture = LoadPicture("")
End Sub

Muito obrigado pela ajuda amigo.

[Patropi]

@Jvitorino1007

 

Como a resposta fi útil, faltou clicar em curtir nas resposta do Osvaldo e marcar o tópico como Resolvido.

Na minha assinatura tem um link para um instrução de como proceder.

 

[]s

[Jvitorino1007]

2 horas atrás, Patropi disse:

@Jvitorino1007

 

Como a resposta fi útil, faltou clicar em curtir nas resposta do Osvaldo e marcar o tópico como Resolvido.

Na minha assinatura tem um link para um instrução de como proceder.

 

[]s

 

[Jvitorino1007]

Em 03/08/2019 às 12:27, Jvitorino1007 disse:

@osvaldomp muito obrigado

Boa noite amigo, mas eu coloco junto com o botão que limpa? Se sim em qual parte seria?

adicionado 1 minuto depois

Muito obrigado pela ajuda amigo.

Boa tarde, esse código apaga todos os campos, é possível apagar células especificas e apagar o que foi preenchido no TextBox e ComboBox do VBA?

[Visitante]

Sim, é possível

[Jvitorino1007]

Em 06/08/2019 às 17:19, osvaldomp disse:

Sim, é possível

Não sou preguiçoso não viu,só tive dificuldade pra fazer. Já consegui fazer o que queria.

adicionado 3 minutos depois

Em 06/08/2019 às 17:19, osvaldomp disse:

Sim, é possível

Mas Obrigado!

[Visitante]

Em 06/08/2019 às 16:49, Jvitorino1007 disse:

 ... é possível ...?

 

Em 06/08/2019 às 17:19, osvaldomp disse:

Sim, é possível

 

Eu somente respondi a sua pergunta, nada mais que isso.