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