Creating a VBA code to crop a photo

[workmacpc]

Hi I'm trying to create a VBA code, that crops a photo to a shape, however whichever way i do it I cant seem to get the code to work.
Can anyone help me? I'm trying to crop the photos to a circle and then add a line colour.

Thanks in advance for any help!

[JohnWilson]

Basic code is

Sub croptoshape()
Dim shp As Shape
    Set shp = ActiveWindow.Selection.ShapeRange(1)
    If shp.Type = msoLinkedPicture Or shp.Type = msoPicture Then
        shp.AutoShapeType = msoShapeOval
        shp.Line.Weight = 10
        shp.Line.ForeColor.RGB = RGB(120, 120, 120)
    End If
End Sub

Note this will crop to an OVAL unless the original pic is square