早々の回答ありがとうございます。
現在、下記のように画像を貼り付けています。
出来上がったエクセルファイルをまた読み込ませ登録すると
画像が重なる為っです。
画像は２箇所ある場合もあります。

その為に、画像を消したいのです。

 Dim oShapes As Excel.Shapes
 Dim oShape As Excel.Shape

 oShapes = shtHoge.Shapes
    
               
oShape = oShapes.AddPicture(getnameink(), False, True, getsyainyokoc(), _

　　　　　　getsyaintatec(), getsyainsaizuyokoc(), getsyainsaizutatec()) '個人名の印鑑の位置