Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [VBA] Activer et désactiver un filigranne dans Excel

[VBA] Activer et désactiver un filigranne dans Excel

7 réponses
Avatar
HD
Bonjour,

En VBA, je voudrais pouvoir ajouter ou enlever un filigranne... Mais je ne
vois pas comment m'y prendre...

Merci d'avance pour votre aide
--
@+
HD
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.j
Bonjour
'LHKITTLE, mpep MODIF DJ
Sub Filigrane()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "CONFIDENTIEL",
"ARIAL", _
40#, msoFalse, msoFalse, 200, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.6
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -40
.ShapeRange.IncrementLeft -160
.ShapeRange.IncrementTop 100
End With
End Sub

'détruit tous les filigranes
Sub WaterMarkerGone()
Application.ScreenUpdating = False
Dim Page As Integer
For Page = 1 To 14
On Error Resume Next
ActiveSheet.Shapes("Dum").Select
Selection.Cut
Next Page
End Sub

--
FAQ MPFE
Daniel
http://dj.joss.free.fr/faq.htm

VBAXL
http://dj.joss.free.fr/

"HD" a écrit dans le message de news:
fbj7k7$128i$
Bonjour,

En VBA, je voudrais pouvoir ajouter ou enlever un filigranne... Mais je ne
vois pas comment m'y prendre...

Merci d'avance pour votre aide
--
@+
HD



Avatar
Daniel.j
Modif :
Donne un nom au filigrane pour pouvoir le supprimer
.Name = "LeFili"

Sub Filigrane()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "CONFIDENTIEL",
"ARIAL", _
40#, msoFalse, msoFalse, 200, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.6
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -40
.ShapeRange.IncrementLeft -160
.ShapeRange.IncrementTop 100
.Name = "LeFili"
End With
End Sub

Sub supp()
ActiveSheet.Shapes("LeFili").Select
Selection.Cut
End Sub
Daniel

"HD" a écrit dans le message de news:
fbj7k7$128i$
Bonjour,

En VBA, je voudrais pouvoir ajouter ou enlever un filigranne... Mais je ne
vois pas comment m'y prendre...

Merci d'avance pour votre aide
--
@+
HD



Avatar
HD
Un grand MERCI à toi Daniel. J !!!! ça fonctionne très bien !!!
Avatar
HD
Comment peut on définir la couleur du texte ? En effet le texte apparaît en
rouge... mais je voudrais pouvoir lui définir d'autres couleurs...

Et comment également souligner le texte ?
Avatar
Daniel.j
Pour la couleur il faut modifier le code couleur
.ShapeRange.Fill.ForeColor.SchemeColor = 22
(vert=4,jaune=6,gris etc..)

"HD" a écrit dans le message de news:
fblu5s$2clc$
Comment peut on définir la couleur du texte ? En effet le texte apparaît
en rouge... mais je voudrais pouvoir lui définir d'autres couleurs...

Et comment également souligner le texte ?



Avatar
JB
Bonjour,


Sub ArrierePlan()
ActiveSheet.SetBackgroundPicture Filename:= _
"C:mesdocexcelmacronouveauConfidentiel.gif"
End Sub

Sub SupArrierePlan()
ActiveSheet.SetBackgroundPicture Filename:=""
End Sub

http://cjoint.com/?jfnHLmCAGb


JB



On 4 sep, 11:13, "HD" wrote:
Bonjour,

En VBA, je voudrais pouvoir ajouter ou enlever un filigranne... Mais je ne
vois pas comment m'y prendre...

Merci d'avance pour votre aide
--
@+
HD


Avatar
HD
Pour la couleur il faut modifier le code couleur
.ShapeRange.Fill.ForeColor.SchemeColor = 22
(vert=4,jaune=6,gris etc..)


Ce qu'il y'a c'est que si j'utilise
.ShapeRange.Fill.ForeColor.SchemeColor = 4
Ce qui devient vert n'est pas le contour du texte du filigramme mais
l'intérieur de l'objet...

En fait, ce que je voudrais c'est juste changer la couleur du rebord des
caractères de mon filigramme. D'origine ces rebords sont rouges... Et je
cherche à pouvoir mettre d'autres couleurs: bleu ou gris.

@+
HD