Efacer filigramme

[AURELIE]

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

 

[aurelie]

j'ai oublie le fichier joint

encore merci a tous [file name=Filigram.zip size=8362]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Filigram.zip[/file]

 

[john]

ActiveCell [file name=FILIGRAM.zip size=9681]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FILIGRAM.zip[/file]

 

[aurelie]

merci Jhon et bon dimanche

 

[aurelie]

merci JOHN

 

[john]

Salut Aurélie,

Pas de problème 🙂

En fait j'ai essayé de poster à plusieurs reprises l'explemple hier soir avec un petit texte en démonstration et pour moi aucun de mes essais n'étaient passés, donc je suis content de voir qu'un est passé 🙂

Bon dimanche également.

John

 

[aurelie]

BONSOIR ATOUS

JE reviens avec mon probleme,en effet si j'ai plusieurs filigramme dans la feuille la macro (proposer par john ) de suppression ne marche pas ,je n'arrive pas a voir ou se situe le probleme

merci a tous [file name=filigramme.zip size=12612]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/filigramme.zip[/file]

 

[Blunet]

Peut être la solution à ton problème [file name=DetruireFiligranne.zip size=8688]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DetruireFiligranne.zip[/file]

 

[Blunet]

Le fichier joint: [file name=DetruireFiligranne_20051221082511.zip size=8688]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DetruireFiligranne_20051221082511.zip[/file]

 

[aurelie]

merci pour la reponse
je vais continuer moncode

 

[john]

Bonjour Aurélie,

Désolé de répondre si tard, mais voilà 2 jours que j'essaye de poster ma réponse et impossible de le faire car chaque fois j'ai une page d'erreur.


Bonne soirée.

John [file name=filigramme2.zip size=11165]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/filigramme2.zip[/file]

 

[aurelie]

merci john
cette foi ci ca marche impeccable
un grand merci et bonne soiree