Image, imprimer ou pas selon un critère

[Carnage029]

Bonjour à tous, 🙂

J'ai cherché sur le forum ou sur la documentation, mais je n'arrive pas à trouver mon bonheur 🙁 , j'ai du code VBA qui me permet d'afficher des image (en gros c'est un tampon d'entreprise),

Il y'a 4 images de tampon les unes sur les autres et je souhaiterai que un seul soit visible en fonction d'une variable (disons sigleC) qui existe déjà dans ma procédure...

Je pense qu'il faut utiliser un truc du genre

ActiveSheet.Shapes("Image 1").

et après je sais pas trop...

Merci de votre aide encore une fois 😀

 

[Gurgeh]

Re : Image, imprimer ou pas selon un critère

Salut Carnage029,

Il te faut utiliser la propriété .PrintObject des objets Shape, qui te permettra en fonction du critère que tu veux de décider si telle ou telle image s'imprime.

Gurgeh

 

[Carnage029]

Re : Image, imprimer ou pas selon un critère

J'ai une erreur lorsque j'écris ça : ActiveSheet.Shapes("Image 20").PrintObject = False

Il me met Propriété ou méthode non gérée par cet objet 🙁

 

[Gurgeh]

Re : Image, imprimer ou pas selon un critère

Je te propose de joindre un fichier pour que je puisse aller plus loin...

Gurgeh

 

[Carnage029]

Re : Image, imprimer ou pas selon un critère

Désolé, mes les informations sont vraiment confidentielles, je ne peux pas les changer 🙁

Bon, je vais essayer de trouver d'ou viens cette erreur 🙁

Merci quand même 🙁

 

[Carnage029]

Re : Image, imprimer ou pas selon un critère

Question résolue, j'ai en fait fait un

ActiveSheet.Pictures.Select
With Selection
.PrintObject = False
End With

puis activé à true manuelle pour celles que je souhaitais imprimer 🙂

comme suit :

dim thetampcomp as string ' c'est le nom de mon image dans le document'

ActiveSheet.Shapes(thetampcomp).Select ' plus généralement ActiveSheet.Shapes("Image 1").Select
With Selection
.PrintObject = True
End With


En espérant aider certains

PS : chez moi thetampcomp prend la valeur d'un rechercheV en vb (donc lookup) 😀