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

[mayekeul]

bonjour,

je pense que la bonne syntaxe est

Code :

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

1
2
 
Shapes(sh).ControlFormat.PrintObject=False

[MarcelG]

Merci pour ta réponse, mayekeul.

Malheureusement, message d'erreur

Sub ou Function non définie

avec le terme "Shapes" surligné(???)

Merci

[mayekeul]

il faut bien sur l'écrire comme ceci

Code :

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

ActiveSheet.Shapes(sh).controlformat.printobject=false

[MarcelG]

Merci mayekeul.

Le code est actif

Malgré tout, pourquoi l'objet Shapes n'est-il pas automatiquement lié à la feuille active, contrairement, sauf erreur, aux objets Range ?