Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Filigrane, masque , arrière plan ?????

3 réponses
Avatar
Francky
Bonjour,

Est-il possible comme sous Word de mettre un filigrane en=20
fond d'une feuille excel et qui s'imprime =E0 l'impression =20
ou comme un masque sous power point???

L'arri=E8re plan c'est pas terrible, en + comment faire=20
pour une image qui couvrira enti=E8rement le fond et pas=20
plusieurs petites

Merci aux specialistes

3 réponses

Avatar
Starwing
Bonjour,

Dans mon cas je peux insérer la mention
(filigrane) "Document de travail" dans les options
avancées d'impression dans la mise en page d'Excel.

Il va sans dire que cela dépend de l'imprimante.
Bonne chance,


Starwing

"Francky" a écrit dans le message de
news:79ad01c48488$d772a510$
Bonjour,

Est-il possible comme sous Word de mettre un filigrane en
fond d'une feuille excel et qui s'imprime à l'impression
ou comme un masque sous power point???

L'arrière plan c'est pas terrible, en + comment faire
pour une image qui couvrira entièrement le fond et pas
plusieurs petites

Merci aux specialistes
Avatar
...Patrick
Voilà :


Sub ImpFiligrane()
' De : "Robert Descôteaux"
'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



...Patrick
Quoi que vous fassiez, faites le bien .
Connectez vous sur ce forum par :
news://msnews.microsoft.com/microsoft.public.fr.excel


"Francky" a écrit dans le message de
news:79ad01c48488$d772a510$
Bonjour,

Est-il possible comme sous Word de mettre un filigrane en
fond d'une feuille excel et qui s'imprime à l'impression
ou comme un masque sous power point???

L'arrière plan c'est pas terrible, en + comment faire
pour une image qui couvrira entièrement le fond et pas
plusieurs petites

Merci aux specialistes
Avatar
Daniel.j
Cette macro imprime un filigrane (texte: CONFIDENTIEL) en travers de la feuille

Sub Filigrane()'LHKITTLE, mpep modif DJ
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "CONFIDENTIEL", "ARIAL", _
40#, msoFalse, msoFalse, 200, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.6
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -40
.ShapeRange.IncrementLeft -160
.ShapeRange.IncrementTop 100
End With
End Sub
Pour une image (Fond de page) il ya cela aussi
http://dj.joss.free.fr/faq.htm#impfiligrane" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm#impfiligrane
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm


"Francky" a écrit dans le message de news:
79ad01c48488$d772a510$
Bonjour,

Est-il possible comme sous Word de mettre un filigrane en
fond d'une feuille excel et qui s'imprime à l'impression
ou comme un masque sous power point???

L'arrière plan c'est pas terrible, en + comment faire
pour une image qui couvrira entièrement le fond et pas
plusieurs petites

Merci aux specialistes