Impression Objet-Shape VBA

[Jeremy011991]

Bonsoir !

J'ai posté hier un message pour la création de formes automatiquement via VBA... problème résolu. Cependant, je chercher depuis quelques heures de la doc pour les propriétés de ces formes, mais rien n'y fait...

ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 500, 20, 135.75, 19.5).Select

Je souhaiterai que cette forme "Rectangle Arrondis" ne soit pas imprimable par la suite ! Mais lorsque j'essaie même de voir ce que donne l'enregistreur de macro, celle ci est vide.
Moi je pencherai pour quelque chose avec "Selection" ou autre chose..

Quelqu'un aurait une idée ? 🙂

Merci à vous !

 

[Jeremy011991]

Re : Impression Objet-Shape VBA

Problème résolu !

Pour ceux qui passerais par là dans le futur, il faut rajouter cela :

With Selection
.PrintObject = False
End With

A condition d'avoir sélectionné l'image au préalable.

Bonne soirée à tous

 

[job75]

Re : Impression Objet-Shape VBA

Bonsoir Jeremy011991,

A condition d'avoir sélectionné l'image au préalable.

En VBA il est pratiquement toujours inutile de sélectionner :

With ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 500, 20, 135.75, 19.5)
  .ControlFormat.PrintObject = False
  '---
End With

ControlFormat renvoie un objet contenant les propriétés du contrôle.

Bonne nuit à tous.