Discussion :

[Valentin234]

Bonjour à tous, mon problème peut paraître simple mais je n'arrive pas à créer de macro pour changer la couleur de la bordure d'une forme spécifique sur Word.

Voici la forme dans mon document dont je souhaiterais changer la couleur de la bordure : ActiveDocument.Shapes.Range(Array("Gold Profil picture"))

Quelqu'un sait-il comment faire ?

[Invité]

Bonjour,

Une solution possible si votre forme est bien un objet Shape. Pour connaître les paramètres RGB d'une couleur, clic droit sur la forme, Format de l'objet, Remplissage, Couleur, Autres couleurs, Personnaliser.

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
16
17
18
19
20
21
22
23
 
Sub ModifierLaBordure()
 
Dim DocEnCours As Document
Dim MonShape As Shape
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
         Debug.Print .Shapes.Count
         If .Shapes.Count > 0 Then
            Set MonShape = .Shapes("Gold Profil picture")
            With MonShape
                 With .Line
                      .ForeColor = RGB(153, 153, 255)
                      .Weight = 0.5
                 End With
            End With
            Set MonShape = Nothing
         End If
    End With
    Set DocEnCours = Nothing
 
End Sub