Excelで挿入した画像の名前を変更する

Question

Excelに挿入された画像の名前は自動的に「画像1」、「画像2」などとなります。私は選択された画像の周りに境界を置く関数を実行しています。問題は、 "画像1"であるワークシートに2つの画像がある場合、関数は混乱し、どの画像を置くのか分かりませんが、画像上にランダムに配置すると間違っている可能性があります。とにかくイメージの名前のボックスを変更するか、少なくとも選択したイメージを取得するにはありますか？ここで

は、画像上の境界線を置くための私のコードです：

Private Function AddImageBorder(WhichSheet As String) 

With ActiveWorkbook.Sheets(WhichSheet).Shapes(Selection.Name) 
    .Line.Weight = 5 
    .Line.Visible = msoTrue 
End With 

エンド機能

Answer 1

このお試しください：私は選択を防ぐための絵であることを確認するためのチェックを追加しました

Private Function AddImageBorder() 
    If TypeName(Selection) = "Picture" Then 'Make sure the object is a picture first 
     With Selection.ShapeRange 
     .Line.Weight = 5 
     .Line.Visible = msoTrue 
     End With 
     End If 

End Function 

をいくつかのエラー。

Selection.Name = "NewName" 

を、それが画像オブジェクトの名前を変更します：

はあなたの直接の質問に答えるために、あなたが行うことができます。