Macro To Remove Picture Border Or Set It To None

I have a picture that has been inserted into a worksheet via a macro and I have a number of macros to increase and decrease size. They work fine.

However, whenever I run one of those macros by selecting a button on the worksheet, it results in a border around the picture.

Facts:
- worksheet is called "Admin"
- picture is called "ClientLogo"
- Line.Weight set to "0" or "False" or "xlNone" or removed all result in a border

Question: Code / syntax for removing or setting the border to nothing?

VB:

Sub ReduceShape()
Dim shp As ShapeRange
On Error Goto NoSelectionMade
Sheets("Admin").Shapes("ClientLogo").Select
Set shp = Selection.ShapeRange

[Code]...