Macro para poner marco a una imagen

Hola, buenas noches, en las redes he encontrado el siguiente código, por cierto muy útil:

Sub AddBorderToAllPictures()

'PURPOSE: Add borders around all images in the document
'SOURCE: www.TheSpreadsheetGuru.com

Dim myPic As InlineShape

'Loop Through All Pictures (aka Inline Shapes) in Document
    For Each myPic In ActiveDocument.InlineShapes
        
        'Border Thickness
            myPic.Line.Weight = 1.5
        'Border Line Style
            myPic.Line.Style = msoLineSingle
        'Border Color
            myPic.Line.ForeColor.RGB = RGB(121, 0, 0)    
    Next myPic

End Sub

Pero deseo que solo funcione para cada imagen que yo seleccione

Gracias por la atención