Placer un texte en Filigrane

Hello,

Une solution peut-être, mais le problème c'est qu'il faut auparavant faire
de ton texte une image.
Ensuite, tu insères ton image contenant le texte, dans les formats de
l'image (accessibles par clic droit) tu choisis "filigrane" et dans "ordre"
(toujours par clic droit sur l'image) tu choisis "arrière plan".

Arnaud

"Stephane" <no_spam@yahoo.com> a écrit dans le message de
news:%23hRduIxuDHA.2508@TK2MSFTNGP12.phx.gbl...

Bonjour,


Est il possible de placer un texte en filigrane des pages d'un classeurs ?


Merci

Voilà:

'Attribute VB_Name = "filigrane"
Sub ImpFiligrane()
' De : "Robert Descôteaux" <Robert.descoteaux@cgocable.ca>
'La Zone d'impression DOIT être préalablement définie
On Error Resume Next
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

-----Message d'origine-----
Bonjour,


Est il possible de placer un texte en filigrane des pages
d'un classeurs ?

Merci


.