Discussion :

[MarcelG]

Re-bonjour le Forum,

Ma question.

Afin de gérer l'impression des images intégrées à une feuille de calcul, pourquoi le passage par la méthode "Select" est-elle obligatoire ?

Autrement dit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro1()
   Dim sh As Variant
   For Each sh In Array("Logo", "Switch")
        ActiveSheet.Shapes(sh).PrintObject = False
   Next sh
End Sub

génère l'erreur

Propriété ou Méthode non gérée par cet objet.

Tandis que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
   Dim sh As Variant
   For Each sh In Array("Logo", "Switch")
        ActiveSheet.Shapes(sh).Select
        Selection.PrintObject = False
   Next sh
End Sub

est parfaitement actif.

Y a-t-il une autre méthode?
Je suis allergique à la méthode "Select", mais si on ne peut faire autrement...