Ajout d'un cadre prédéfini sur une image

[Arsene12]

Bonjour,
Lorsque je double-clique sur une image dans word, j'ai un panneau qui s'affiche me donnant la possibilité d'ajouter un cadre à mon image. Sauriez vous comment programmer l'ajout d'un cadre prédéfini dans une macro; Merci d'avance.
Arsene

[Heureux-oli]

Salut,

peut-être comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
With ActiveDocument.InlineShapes(1)
    With .Borders(wdBorderLeft)
        .LineStyle = wdLineStyleDashDot
        .LineWidth = wdLineWidth100pt
        .Color = wdColorBlue
    End With
    With .Borders(wdBorderRight)
        .LineStyle = wdLineStyleDashDot
        .LineWidth = wdLineWidth100pt
        .Color = wdColorBlue
    End With
    With .Borders(wdBorderTop)
        .LineStyle = wdLineStyleDashDot
        .LineWidth = wdLineWidth100pt
        .Color = wdColorBlue
    End With
    With .Borders(wdBorderBottom)
        .LineStyle = wdLineStyleDashDot
        .LineWidth = wdLineWidth100pt
        .Color = wdColorBlue
    End With
End With

[Arsene12]

Merci, avec cette réponse je pensai disposer de l'élément qu'il me fallait. Mais je n'arrive pas à obtenir l'équivalent du format "Cadre double, noir", et dès que je change la taille wdLineWidth100pt, j'ai souvent le bug suivant :

" Erreur d'exécution 5843
"L'un des arguments est hors limites"

[Heureux-oli]

Salut,

C'est que j'ai mal lu le premier message.