A
AURELIE
Guest
bonsoir à tous
A l'aide de ce code je place un filigramme dans ma feuille mais je n'arrive pas trouvé le code pour l'effacer
merci à tous pour vos réponses et bon weekend
Sub Filigrane()
x = Sheets('FEUIL1').Range('A1')
If Sheets('FEUIL1').Range('A1') = 0 Then End
ActiveSheet.Shapes.AddTextEffect _
(msoTextEffect1, (x), _
'Algerian', 52#, msoFalse, _
msoFalse, 80, 220).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
A l'aide de ce code je place un filigramme dans ma feuille mais je n'arrive pas trouvé le code pour l'effacer
merci à tous pour vos réponses et bon weekend
Sub Filigrane()
x = Sheets('FEUIL1').Range('A1')
If Sheets('FEUIL1').Range('A1') = 0 Then End
ActiveSheet.Shapes.AddTextEffect _
(msoTextEffect1, (x), _
'Algerian', 52#, msoFalse, _
msoFalse, 80, 220).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