Masquer une image dans une feuil

[SSIAP2]

bonjour j'aurais une question des plus simple mais trop simple apparement sa fonctionne pas

je creer un bouton sur ma feuil1
ainsi qu'une image nomer Image1

j'integre au bouton1 cette fonction

Image1.Visible = False

et bien sa beugue comme quoi l'objet es inexistant

pourtant si je fais

CommandButton1.Visible = False

cela fonctionne

quelqu'un saurais t'il pourquoi merci d'avance

 

[laurent950]

Re : Masquer une image dans une feuil

Bonsoir,

Voici le code pour afficher ou masquer votre image :

Astuce pour être sur que votre image porte bien le nom Image1 (utiliser l'enregistreur de macro vba) et cliquer sur l'image (le non du de l'image sera à l'endroit de mes étoiles)

ActiveSheet.Shapes("********") ====>>> dans le code crée par VBA

si c'est bien Image1 laisser comme cela est sinon changer par le nom par celuis qui est à la place des étoiles

' =====================================================

Sub Masquer()

ActiveSheet.Shapes("Image1").Visible = False
End Sub

' =====================================================

Sub Aficher()

ActiveSheet.Shapes("Image1").Visible = True
End Sub

Laurent

 

[SSIAP2]

Re : Masquer une image dans une feuil

Bonjour laurent et merci por ta solution celui ci fonctionne tres bien

mais peut tu m'eclaire sur une chose je voudrais au lieu du click utiliser la fontion movemouse qui sert dans je rentre la sourie sur l'image elle s'agrandie quand je la retire elle redeviens sa taille normal.
j'ai réussis pour quand la sourie entre dans l'image mais pas quand elle sort

pourais tu me dire comment ont fais merci d'avance à bientot

 

[laurent950]

Re : Masquer une image dans une feuil

Bonsoir SSIAP2,

Peux-tu m'envoyer ton fichier avec le code, je vais regarder cela :

Je te renvois cela avec la correction est le commentaire associer au code.

Laurent