Image sous feuille de calcul

bonjour,

http://www.excelabo.net/compteclic.php?nom=jb-photos


Sub ImageArrierePlan()
ChDir ActiveWorkbook.Path
ActiveSheet.SetBackgroundPicture Filename:="fond_nico.jpg"
End Sub

Sub ImpressionAvecFond()
Range("A1").CurrentRegion.Select
Selection.CopyPicture ' Copie la zone
ActiveSheet.Paste Destination:=ActiveSheet.Range("A1") 'crée un
shape
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub


cordialement jb

bonsour Dizestif

extrait de la FAQ MPFE !!!!
http://dj.joss.free.fr/faq.htm#impfiligrane
Comment imprimer le fond de page ?
Sub ImpFiligrane()
'La Zone d'impression DOIT être préalablement définie
Dim ZoneImpr As Range
Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImpr.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImpr
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub
'------Denny Campbell

isabelle

Bonjour,
Je cherche désepsérément à mettre une image en fond d'une feuille de calcul.
Quand je mets Format/Feuille/Arrière-plan, j'ai bien l'image qui apparaît
mais elleest répétée sur toute la feuille et n'apparaît pas à l'impression.
Moi j'aimerais qu'elle apparaisse au format que je lui donne, en filigrane en
arrière plan de la feuille de calcul, et surtout qu'elle apparaisse à
l'impression.
Y a-t-il une solution?
Merci beaucoup