Cacher et afficher images....

roblo

XLDnaute Nouveau
Bonjour à Vous..

J'ai un probleme pour afficher et cacher des images.....
J'ai deux boutons.
un pour les cacher via
Sub Bouton1_QuandClic()
ActiveSheet.Pictures.Select
Selection.Visible = False

End Sub
Lui OK

L'autre pour ne pas les cacher!!!!
Bouton2_QuandClic()
ActiveSheet.Pictures.Select
Selection.Visible = True
End Sub

Mais forcément le bug est qu'il n'a pas d'images à selectionner....:p......
 

Pièces jointes

  • macro.xls
    39.5 KB · Affichages: 75
  • macro.xls
    39.5 KB · Affichages: 79
  • macro.xls
    39.5 KB · Affichages: 80

Pierrot93

XLDnaute Barbatruc
Re : Cacher et afficher images....

Re

en changeant la feuille, le code ci dessous ne donne rien, pas de message d'erreur mais pas non plus le résultat attendu, et là nombre d'images OK :

Code:
Sub Bouton1_QuandClic()
Set myDocument = ActiveSheet
    nbimages = myDocument.Shapes.Count
For i = 1 To nbimages
    If Left(myDocument.Shapes(i).Name, 3) = "Ima" And myDocument.Shapes(i).Visible = True Then myDocument.Shapes(i).Visible = False Else myDocument.Shapes(i).Visible = True
Next
End Sub

@+
 

Pierrot93

XLDnaute Barbatruc
Re : Cacher et afficher images....

Re

pour que ton code fonctionne, Pic" au lieu de "Ima", préférable peut être de tester le type, égal à "MsoPicture" :

Code:
For i = 1 To nbimages
    If Left(myDocument.Shapes(i).Name, 3) = "[B][COLOR="Red"]Pic[/COLOR][/B]" And myDocument.Shapes(i).Visible = True Then myDocument.Shapes(i).Visible = False Else myDocument.Shapes(i).Visible = True
Next

A noter que dans la zone nom, j'ai bien "image" et son numéro d'affiché...

bonne journéer
@+
 

MJ13

XLDnaute Barbatruc
Re : Cacher et afficher images....

Bonjour Pierrot

Merci. En effet, le nom est en fonction du nom de l'image (nom que l'on voit à côté de la barre de formule lorsqu'on clique sur un objet).

Donc bien faire attention au nom de l'image et si on a plusieurs début de nom dans la cas où on renommerai des images, cela risque de ne plus fonctionner.

Comme d'habitude avec Excel il faut toujours un peu tester et adapter avant que cela fonctionne.

A noter que dans la zone nom, j'ai bien "image" et son numéro d'affiché...

A voir si dans le code du 18/06 20H01, il ne faut pas mettre "ima" au lieu de "Ima"

pour que ton code fonctionne, Pic" au lieu de "Ima", préférable peut être de tester le type, égal à "MsoPicture"

Merci pour l'astuce. Bon dimanche.
 

Discussions similaires

Réponses
12
Affichages
301
Réponses
3
Affichages
269
Réponses
12
Affichages
552
Réponses
2
Affichages
379

Statistiques des forums

Discussions
312 967
Messages
2 094 028
Membres
105 920
dernier inscrit
SAUSSARd