http://groups.google.com/group/microsoft.public.fr.excel/browse_frm/thread/97ff55f6e40ae455/6537c431118e355a?lnk=st&q=&rnum=4&hl=fr#6537c431118e355a ___________________________________________________________________ Sub Filigrane() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Confidentiel", "ARIAL", _ 60#, 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 .PrintObject = False End With End Sub ________________________________________________________________________ isabelle Bonne Fête de fin d'année à tous.
Bonjour ; Est il possible d’avoir un arrière plan sur une plage (B1:G40) comme « Word » qu’on vois à l’écran mais qu’il ne s’imprime pas. Salutations.
Tibert
Bonjour Isabelle; Je te remerci, mais ce n'était pas un filigrane que je voulais mais un arrière-plans cela dit j'ai trouvé en faisant "format"Feuille"Arrière-plans, le problème il ne s'afficher pas car mes cellules été en fond blanc, aprés les avoir sélectionner en "Aucun remplissage" j'ai put voir mon arrière-plans sans qu'il s'imprime. Salutations & bonne fêtes à tous
bonjour Tibert,
regarde l'exemple "Filigrane" sur ce lien,
http://groups.google.com/group/microsoft.public.fr.excel/browse_frm/thread/97ff55f6e40ae455/6537c431118e355a?lnk=st&q=&rnum=4&hl=fr#6537c431118e355a ___________________________________________________________________ Sub Filigrane() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Confidentiel", "ARIAL", _ 60#, 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 .PrintObject = False End With End Sub ________________________________________________________________________ isabelle Bonne Fête de fin d'année à tous.
Bonjour ; Est il possible d’avoir un arrière plan sur une plage (B1:G40) comme « Word » qu’on vois à l’écran mais qu’il ne s’imprime pas. Salutations.
Bonjour Isabelle;
Je te remerci, mais ce n'était pas un filigrane que je voulais mais un
arrière-plans
cela dit j'ai trouvé en faisant "format"Feuille"Arrière-plans, le problème
il ne s'afficher pas car mes cellules été en fond blanc, aprés les avoir
sélectionner en "Aucun remplissage" j'ai put voir mon arrière-plans sans
qu'il s'imprime.
Salutations & bonne fêtes à tous
bonjour Tibert,
regarde l'exemple "Filigrane" sur ce lien,
http://groups.google.com/group/microsoft.public.fr.excel/browse_frm/thread/97ff55f6e40ae455/6537c431118e355a?lnk=st&q=&rnum=4&hl=fr#6537c431118e355a
___________________________________________________________________
Sub Filigrane()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Confidentiel", "ARIAL", _
60#, 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
.PrintObject = False
End With
End Sub
________________________________________________________________________
isabelle
Bonne Fête de fin d'année à tous.
Bonjour ;
Est il possible d’avoir un arrière plan sur une plage (B1:G40) comme « Word
» qu’on vois à l’écran mais qu’il ne s’imprime pas.
Salutations.
Bonjour Isabelle; Je te remerci, mais ce n'était pas un filigrane que je voulais mais un arrière-plans cela dit j'ai trouvé en faisant "format"Feuille"Arrière-plans, le problème il ne s'afficher pas car mes cellules été en fond blanc, aprés les avoir sélectionner en "Aucun remplissage" j'ai put voir mon arrière-plans sans qu'il s'imprime. Salutations & bonne fêtes à tous
bonjour Tibert,
regarde l'exemple "Filigrane" sur ce lien,
http://groups.google.com/group/microsoft.public.fr.excel/browse_frm/thread/97ff55f6e40ae455/6537c431118e355a?lnk=st&q=&rnum=4&hl=fr#6537c431118e355a ___________________________________________________________________ Sub Filigrane() ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Confidentiel", "ARIAL", _ 60#, 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 .PrintObject = False End With End Sub ________________________________________________________________________ isabelle Bonne Fête de fin d'année à tous.
Bonjour ; Est il possible d’avoir un arrière plan sur une plage (B1:G40) comme « Word » qu’on vois à l’écran mais qu’il ne s’imprime pas. Salutations.
