Macro Excel VB

Fermé
Cridelateur - 23 mars 2009 à 19:04
 Cridelateur - 23 mars 2009 à 19:08
Bonjour,

J'aimerais que cette macro :

1- Place d'abord le texte automatiquement au centre de la page
2- qu'il ce répète peu importe le nombre de page


un gros merci
A voir également:

1 réponse

Cridelateur
23 mars 2009 à 19:08
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
0