VBA：「シェイプの位置（Rangeアドレス）の取得」

どうせ使うことになるので、書いておきます。

Public Function getShapeRange(strShapeName As String) As String

    getShapeRange = _ 

      ActiveSheet.Shapes(strShapeName).TopLeftCell.Address(False, False)

End Function

まぁ、オフセットでなくRangeで返したり、行番号だけ知りたいなどあるけど
自分はRangeのアドレスさえわかればそこからまた変換するCommonがあるので
それでよいかと。