Macro para poner marco a una imagen

Cerrado
Jorge - 28 ago 2018 a las 01:48
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