Resim İsimlendirme

[cokcu]

Herkese merhabalar
Üzerinde çalıştığım bir antrenman kayıt programı var. Analizlerden yana bir sorun yaşamıyorum ancak. Bu dosya içerisine egzersiz resimleri ekliyorum. Eklediğim resimlerin isimlerini User Form yardımı ile düzenlemek mümkün müdür?

Forum içerisinde aradım ancak amacıma uygun bir konuya ulaşamadım.
İlginiz için teşekkür ederim...

 

[Levent Menteşoğlu]

Aşağıdaki kod sanıyorum isteiğinizi karşılayacaktır.

Sub resimekle()
dosya = Application.GetOpenFilename("Resim Dosyaları (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Bir resim dosyası seçin.")
If dosya = "False" Then Exit Sub
sor = InputBox("Resmin adını yazınız.", "Ad değiştirme")
Set ekle = ActiveSheet.Pictures.Insert(dosya)
ekle.Name = sor
End Sub