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
289
Réponses
3
Affichages
261
Réponses
12
Affichages
544
Réponses
2
Affichages
372

Statistiques des forums

Discussions
312 854
Messages
2 092 828
Membres
105 539
dernier inscrit
Morgane0202