>>18
大変遅くなりました。
>「元の画像より少し小さいシェイプを作成して取得する」
はなかなかの妙案だと思いましたが、関数化してループさせた場合処理速度に問題があったので、
既存のプロパティを自力で補正するように書き換えてみました。
Excelは左上をセルの左上に合わせて配置しても、画像の右下のグリップで拡大した場合、
低確率で.Topと.Leftの値が微妙に変化する（たとえば C3に置いた写真の.Top=37.5が37.4999...に変わってしまう。）
ようなので、何パターンか検証した結果、小数点以下第三位を四捨五入で正確に出る事がわかりました。

手動配置している場合に余裕を持たせられるようデフォルト値付きの省略可能引数にしています。

Sub TestGetShapeToRange()
Dim SP As Shape
For Each SP In Selection.Parent.Shapes
If SP.Name = Selection.Name Then Exit For
Next
Range(GetTopLeftCell(SP), GetBottomRightCell(SP)).Select
End Sub

長すぎと怒られたので 次レスへ