placer une image systématiquement en haut à gauche de la zone d'impression

[gilles72]

Bonjour à tous,
sur XP et XL2007
j'aimerais qu'une zone de texte ou image se place automatiquement en haut à gauche de la zone d'mpression que je suis amené à changer fréquemment.
ci dessous le code que j'essaie mais sans succès:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Image 264").Top = ActiveSheet.PageSetup.PrintArea.Top
ActiveSheet.Shapes("Image 264").Left = ActiveSheet.PageSetup.PrintArea.Left
End Sub

Merci aux brillants vbatistes qui détiennent la solution
Gilles72

 

[sousou]

Re : placer une image systématiquement en haut à gauche de la zone d'impression

Bon jour gilles72
regarde comme celà.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set zone = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
ActiveSheet.Shapes("Image 1").Top = zone.Top
ActiveSheet.Shapes("Image 1").Left = zone.Left
End Sub

 

[Robert]

Re : placer une image systématiquement en haut à gauche de la zone d'impression

Bonjour Gilles, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Image 264").Top = Range("Print_Area").Top
ActiveSheet.Shapes("Image 264").Left = Range("Print_Area").Left
End Sub

[Édition]
Bonjour Sousou on s'est croisé

 

[gilles72]

Re : placer une image systématiquement en haut à gauche de la zone d'impression

Bonjour ROBERT etSOUSOU...et mes excuses pour le retard
nickel pour les 2 codes
Merci et bravo