A voir également:
- Macro Excel VB
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
1 réponse
Voci mon code
Sub imprimer_filigrane()
ActiveSheet.Shapes.AddTextEffect _
(msoTextEffect1, "Broullion", "impact", 48#, msoFalse, msoFalse, 40, 300).Select
With Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 30
.Fill.Transparency = 0.5
.Line.Weight = 0.5
.Line.Visible = msoFalse
.IncrementRotation -30
End With
End Sub
Sub imprimer_filigrane()
ActiveSheet.Shapes.AddTextEffect _
(msoTextEffect1, "Broullion", "impact", 48#, msoFalse, msoFalse, 40, 300).Select
With Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 30
.Fill.Transparency = 0.5
.Line.Weight = 0.5
.Line.Visible = msoFalse
.IncrementRotation -30
End With
End Sub