Discussion :

[chantoutant]

Jusqu'à la version 2007, j'avais créé un exercice qui demandait à mes élèves de créer une macro insérant un texte dans l'en-tête et ce texte comportait une ombre et un contour. Sommes passés à la version 2016 en août et les attributs ombre et contour sont maintenant accessibles via les effets de texte (qui semble l'équivalent d'un objet WordArt). J'ai tenté de toutes sortes de façons d'appliquer des effets de texte à l'aide d'une macro, mais celle-ci n'enregistre rien du tout.

Est-ce qu'il y aurait quelqu'un qui possède assez de connaissances à ce niveau pour m'expliquer comment faire, si ça se fait évidemment?

Merci de votre collaboration!

[Souriane]

Bonjour,

Voici un code qui applique un effet de texte. Suffit de l'adapter pour vos besoins!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub EffetSurLeTexte()
 
    Dim MaSelection As selection
    Set MaSelection = Application.ActiveWindow.selection
    With MaSelection.Font
        .Size = 15
        .ColorIndex = wdDarkBlue
        .Bold = True
        .Reflection.Type = msoReflectionType5
        .Glow.Radius = 5
        .TextShadow.Type = msoShadow1
 
    End With
 
End Sub

Bonne chance!

Souriane