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
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
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" <hd@anti.spam.fr> a écrit dans le message de news:
fbj7k7$128i$1@biggoron.nerim.net...
Bonjour,
En VBA, je voudrais pouvoir ajouter ou enlever un filigranne... Mais je ne
vois pas comment m'y prendre...
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
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
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" <hd@anti.spam.fr> a écrit dans le message de news:
fbj7k7$128i$1@biggoron.nerim.net...
Bonjour,
En VBA, je voudrais pouvoir ajouter ou enlever un filigranne... Mais je ne
vois pas comment m'y prendre...
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
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
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.
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.