Ekli resimlerin excel olarak yeniden adlandırılması

Question

Excel'e eklenen resimler otomatik olarak "Picture 1", "Picture 2" ve benzeri adlandırılacaktır. Seçilen resmin etrafına bir kenarlık koymak için bir fonksiyon çalıştırıyorum. Sorun, eğer çalışma sayfasında "Resim 1" olan iki resim varsa, fonksiyonun kafasını karıştıracak ve hangisini kullanacağını bilmeyecek, ancak yanlış bir görüntüye rastgele yerleştirecektir. Görüntünün ad kutusunu değiştirmek veya en azından seçilen görüntüyü almak için zaten var mı?

Burada resmin üzerine sınır koymak benim kod: Deneyin

Private Function AddImageBorder(WhichSheet As String) 

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

End Function

Answer 1

bu: Ben yapmak için bir çek eklendi

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 

emin seçim önlemek için bir resimdir bazı hatalar.

Selection.Name = "NewName" 

ve resim nesnenin adını değiştirecek:

için doğrudan soruyu cevaplamak için, yapabilirdi.