Remise en place d'un objet

Bonsoir à tous,

Je fais un petit programme pour imprimer des étiquettes de CD.

comme le réglage est délicat , il me faut une macro qui re-dimensione en remettant à sa

place l'objet ("AutoShape1") avant chaque impression.

Le code ci-dessous crée un nouvel objet.

ActiveSheet.Shapes.AddShape(msoShapeDonut, 485.25, 15#, 333#, 348#).Select

Selection.ShapeRange.Adjustments.Item(1) = 0.3446

mais je ne veux pas d'un nouvel objet ; seulement déplacer "AautoShape 1" à

485.25, 15#,333#,348#.

çà marche pas avec l'enregistrement ! quel est le bon code ?

merci d'avance........Claude.

Salut Claude

Essaye avec ceci, nom de la forme à adapter

With ActiveSheet.Shapes("AutoShape 1")
    .Left = 485.25
    .Top = 15
    .Width = 333
    .Height = 348
End With

Mytå

Merci Mytä , c'est parfait.

je ne sait pas quelle heure il est chez toi , mais là je vais sous la couette !

à+ .....Claude.