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

 

[Dull]

Re : Cacher et afficher images....

Salut roblo, le Forum

Les Select posent parfois problème

essaye comme cela

Sub Bouton1_QuandClic()
ActiveSheet.Pictures.Visible = False
End Sub

Sub Bouton2_QuandClic()
ActiveSheet.Pictures.Visible = True
End Sub

EDITION: Salut Pierrot...
Bonne Journée

 

[Pierrot93]

Re : Cacher et afficher images....

Bonjour Roblo, Dull

pour le fun, avec un seul bouton :

Sub Bouton1_QuandClic()
ActiveSheet.Pictures.Visible = Not ActiveSheet.Pictures.Visible
End Sub

bonne journée
@+

 

[roblo]

Re : Cacher et afficher images....

TROIS HEURES QUE JE GALLERE
HAAAAAAAAAAAAAAAAAAAAA

UN GRAND MERCI Dull Pb Résolu

 

[roblo]

Re : Cacher et afficher images....

LOL

Pour le fun J'adore & en plus ça fonctionne
Encore merci à vous deux.

 

[MJ13]

Re : Cacher et afficher images....

Bonjour Roblo, Dull, Pierrot

Moi aussi j'ai cherché avec des if pictures.count, pictures visible..., j'avais bien un truc mais cela fonctionne avec une seule image.

Sub Bouton3_QuandClic()
Stop
nb = ActiveSheet.Pictures.Visible
If nb = 0 Then ActiveSheet.Pictures.Visible = True Else ActiveSheet.Pictures.Visible = False
End Sub

Et de plus Pierrot ton code ne marche que si on a q'une image alors si on en a plusieurs, Comment on fait?

Pour Dull, ton code marche mais il faut 2 boutons.

Ah des fois les choses paraissent simple et pourtant cela devient vite compliqué!

Bon Week-end.

 

[Pierrot93]

Re : Cacher et afficher images....

Re, bonjour Michel

A priori ce code fonctionne chez moi avec une ou plusieurs images... testé sur le fichier de Roblo...

@+

 

[Dull]

Re : Cacher et afficher images....

Salut Michel, Le fil

Je m'insurge en Faux

Le code de Pierrot etpourmémoireilm'énerve fonctionne parfaitement avec plusieurs images et pour preuve:

EDITION: et en plus il est rapide le Bougre
Bonne Journée

 

[roblo]

Re : Cacher et afficher images....

Et ce qui est fort c'est qu'il m'a même fait réapparaitre mes trois images que je croyait à jamais perdu dans les méandres d'Excel

 

[MJ13]

Re : Cacher et afficher images....

Re Dull, Pierrot, Roblo


Mais: j'ai fait le test sur XL2007 et il me met:

Erreur d'éxécution 1004
Impossible de lire la propriété visible de la classe Picture

Bizarre non. Si quelqu'un peut tester sur XL2007 et confirmer.

Merci d'avance

 

[roblo]

Re : Cacher et afficher images....

Perso j'ai le 2007.....

 

[roblo]

Re : Cacher et afficher images....

DSL 2003
Pardon

 

[MJ13]

Re : Cacher et afficher images....

Re a tous

Bon après avoir cherché avec l'aide d'Excel: voici un code pour XL2007. Pourriez vous me dire si il fonctionne sur XL2003?

Merci d'avance.

Sub Affiche_Masque_ImagesXL2007()
'MJ pour [URL]https://www.excel-downloads.com/threads/cacher-et-afficher-images.124183/[/URL]
Set myDocument = Worksheets(1)
'With myDocument.Shapes(1).PictureFormat
    '.Brightness = 0.3
    '.Contrast = 0.75
    'End With
    nbimages = myDocument.Shapes.Count
    For i = 1 To nbimages
    'MsgBox myDocument.Shapes(i).Name
    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
'With myDocument.Shapes(1)
    '.Brightness = 0.3
    '.Contrast = 0.75
 '   .Visible = False
'End With
End Sub

 

[Pierrot93]

Re : Cacher et afficher images....

re

je regarde a mon retour, si pas de reponse d ici la...

 

[Pierrot93]

Re : Cacher et afficher images....

Re

pas de bogues sous 2003... mais dans le fichier à Roblo, "nbimages" = 0, donc se passe rien...

bonne soirée
@+