XL 2016 Filigrane dans feuille Excel

[Scorpio]

Bonjour à toutes et tous,

Y aurait-il, s'il vous plaît quelqu'un qui pourrais m'expliquer, comment insérer un filigrane centré dans une feuille portrait Excel.
Merci et à +++++

 

[gosselien]

Bonjour,

à tester dans une feuille, dont la zone d'impression a été définie !
et chercher un peu ce qu'il faut modifier pour faire à ton goût
P.

Sub WaterMarker2()
Dim Mud As Integer, Dum As Object
Mud = -120   '-90 'décalage pour centrer horiz. dans la 1ère page (à tester)
Application.ScreenUpdating = False
Dim Page As Integer, NbPages As Integer
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = 1 To NbPages
  ActiveSheet.Shapes.AddTextEffect(msoTextEffect3, _
                                   "Confidentiel !", "Bookman Old Style", _
                                   16#, msoFalse, msoFalse, 21, 55#).Select
  Selection.name = "Dum"
  With Selection
    .ShapeRange.Fill.Visible = msoTrue
    .ShapeRange.Fill.Solid
    .ShapeRange.Fill.ForeColor.SchemeColor = 10
    .ShapeRange.Fill.Transparency = 0.2
    .ShapeRange.line.Visible = msoTrue
    .ShapeRange.IncrementRotation -35.22
    .ShapeRange.IncrementLeft Mud
    .ShapeRange.IncrementTop 20
  End With
  Mud = Mud + 327   '432 ' 'incrémentation pour centrer page suivante
Next Page
Range("I18").Select
End Sub

 

[Scorpio]

Bonjour gosselien,
Alors super, pour ta rapidité, un grand merci
Le code n'affiche pas d'erreur, c'est déjà ca de gagner
Merci, merci
A+++++

 

[Scorpio]

Re,
J'ai parlé trop vite
J'assai de placer le filigrane au centre, mais c'est pas ca

 

[DoubleZero]

Bonjour, Scorpio, gosselien , le Forum,

job75 nous a offert un superbe travail... ici.

A bientôt

 

[Scorpio]

OK,
Merci DoubleZero