Comment faire filigramme en Excel
didi
-
Raymond PENTIER Messages postés 58989 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58989 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Bonjour,
Je voudrais mettre, en arrière plan d'une feuille Excel, du texte :
- J'arrive à le faire sous WORD :
. Format/Arriére plan/Filigrane imprimé.
. Et aprés je choisis soit de mettre une image ou du texte.
- Dans Excel : j'ai simplement trouvé comment on mettait un motif en fond.
. Sélectionner la feuille.
. Format/Feuille/Arrière plan.
. Et on choisi une image.
Je n'arrive pas à trouver dans excel comment on insére un texte en filigrane.
Est ce que c'est possible de le faire ?
Si oui, pouvez-vous, s'il vous plait, m'expliquer la procédure.
Merci beaucoup
Didi
Bonjour,
Je voudrais mettre, en arrière plan d'une feuille Excel, du texte :
- J'arrive à le faire sous WORD :
. Format/Arriére plan/Filigrane imprimé.
. Et aprés je choisis soit de mettre une image ou du texte.
- Dans Excel : j'ai simplement trouvé comment on mettait un motif en fond.
. Sélectionner la feuille.
. Format/Feuille/Arrière plan.
. Et on choisi une image.
Je n'arrive pas à trouver dans excel comment on insére un texte en filigrane.
Est ce que c'est possible de le faire ?
Si oui, pouvez-vous, s'il vous plait, m'expliquer la procédure.
Merci beaucoup
Didi
A voir également:
- Filigramme excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
2 réponses
Avec XL<2007 et une macro
avec 2007, ce n'est pas terrible, il faut regarder les param^tre addtexteffect et les propriétés de shaperange
Michel
Sub test() inserer_filigrane "C O N F I D E N T I E L" End Sub Sub inserer_filigrane(texto) ActiveSheet.Shapes.AddTextEffect _ (msoTextEffect1, texto, "impact", 48#, msoFalse, msoFalse, 40, 300).Select With Selection.ShapeRange .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor.SchemeColor = 22 .Fill.Transparency = 0.5 .Line.Weight = 0.5 .Line.Visible = msoFalse .IncrementRotation -30 End With End Sub
avec 2007, ce n'est pas terrible, il faut regarder les param^tre addtexteffect et les propriétés de shaperange
Michel