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