Bonsoir à tous & à tourtes
'dessiner un filigrane
Sub Filigrane()
ActiveSheet.Shapes.AddTextEffect _
(msoTextEffect1, "C O N F I D E N T I E L", _
"Algerian", 36#, msoFalse, _
msoFalse, 40, 300).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.IncrementRotation -26.69
' Application.CommandBars("WordArt").Visible = False
Range("A1").Select
End Sub
Et ça marche
A ++
Eric