Faire disparaitre une image clipart

[Nanir]

Bonjour à tous,

J'ai une petite interrogation sur les cliparts.

En effet, sur une feuille j'ai un clipart qui affiche un userform si on clique dessus.

J'ai aussi un togglebutton qui fait apparaitre/disparaitre tous les combobox, listbox...

Mon problème est que je n'arrive pas à faire disparaitre le clipart via le togglebutton.

Peut on faire cette manipulation?

 

[ziopizza]

Re : Faire disparaitre une image clipart

Bonjour Nanir,
Peut etre comme ça,
( le nom de ton objet)
ActiveSheet.Shapes("le nom").Select
Selection.Delete
Ou comme çà,
ActiveSheet.Shapes("nom").Delete

Salut
Yves

 

[Nanir]

Re : Faire disparaitre une image clipart

Merci pour ta réponse ziopizza,

Le truc c'est que je ne sais pas comment il s'appelle cet objet. Lorsque je clique dessus il y apparait "Image 468".

J'aimerai quelqe chose du genre :

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
ToggleButton1.Caption = "OFF"
ToggleButton1.BackColor = &HFF&
Image 468.Visible = False
Else
ToggleButton1.Caption = "ON"
ToggleButton1.BackColor = &HC000&
Image 468.Visible = True
End If
End Sub

Comment faire?

 

[Robert]

Re : Faire disparaitre une image clipart

Bonjour Nanir, Ziopizza, bonjour le forum,

Essaie comme ça :

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "OFF"
ToggleButton1.BackColor = &HFF&
ActiveSheet.Shapes("Image 468").Visible = False
Else
ToggleButton1.Caption = "ON"
ToggleButton1.BackColor = &HC000&
ActiveSheet.Shapes("Image 468").Visible = True
End If
End Sub

 

[Nanir]

Re : Faire disparaitre une image clipart

Bonjour Robert,

J'ai essayé cette syntaxe :

Shapes("Image 468").Visible = True
Mais elle ne fonctionne pas.

En revanche celle-ci :
ActiveSheet.Shapes("Image 468").Visible = True
Fonctionne.

Ziopizza me l'avait bien indiqué dans sa réponse (et toi aussi Robert). Toutes mes excuses, mais bon on est vendredi et je fatigue...
La m.... dans les yeux quoi...

Merci à vous,
Bon week end sur xld!