Cacher et afficher images....

[roblo]

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....😛......

 

[Pierrot93]

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 :

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

@+

 

[MJ13]

Re : Cacher et afficher images....

Re

Merci Pierrot.

Bonne soirée.

Il y aurait donc des différences entre XL2003 et XL2007. Je m'en doutais!

 

[Pierrot93]

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" :

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]

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.

 

[Pierrot93]

Re : Cacher et afficher images....

Re

Non Michel, j'ai bien "Image" dans la zone nom, horreur de frappe...

@+