Contour d'image au moment de l'insertion

Bonjour à tous,

J'ai un code qui me permet d'aller chercher une image dans un fichier puis de l'insérer dans une plage donnée de ma feuille excel.

J'aimerais, au moment de l'insertion, donner un contour noir à l'image (une bordure). Savez-vous ce qu'il faut ajouter au code ?

Voici mon code

Sub Liste_Agences(Nom As String)

Dim Fichier As String
Dim objImg As Object
Dim Emplacement As Range

For i = 1 To 2

If i = 1 Then
Worksheets("test").Select
Set Emplacement = Range("J5:L10")

Else

Worksheets("test2").Select
Set Emplacement = Range("J7:L12")

End If

    Fichier = "C:\Users\l44eo\Desktop\Dossier images\" & Nom & ".jpg"
    Set objImg = ActiveSheet.Pictures.Insert(Fichier)
    Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.DrawingObjects.Count)

    With objImg.ShapeRange
        .Name = "Cible"
        .LockAspectRatio = msoTrue
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With

Next

Worksheets("Gestion des agences").Select

End Sub

Bonjour toutes et tous

me semble cela :

.BorderStyle = fmBorderStyleSingle
.BorderColor = RGB(0, 0, 0)  '  noir
.BackColor = 1  ' noir

crdlt,

André

Bonjour André,

Je n'ai pas essayé car j'ai trouvé ce code autre part qui fonctionne parfaitement, mais merci quand même!

With objImg.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        .Transparency = 0
        .Weight = 0.25
    End With