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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:79ad01c48488$d772a510$a501280a@phx.gbl...
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
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
...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
Voilà :
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
...Patrick
Quoi que vous fassiez, faites le bien .
Connectez vous sur ce forum par :
news://msnews.microsoft.com/microsoft.public.fr.excel
"Francky" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:79ad01c48488$d772a510$a501280a@phx.gbl...
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
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
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 -- 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
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
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Francky" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
79ad01c48488$d772a510$a501280a@phx.gbl...
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
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 -- 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