Soru user form uzerinden resim ekleme

[bycakir]

merhaba
öncelikle herkeze selamlar.
şöyle ir sorum olacak. hazırladıgım bir userform uzerine resim çağırmak istiyorum. ama resim isimleri başımı ağrıtacagını düşündüğüm için resim text inin altına bir buton koyup bu buton üzerinden bilgisayarda bulunan resmi çağırmak sayfa ismini resme verip. exlin bulundugu klasorde resim. isimli bit klasore kayıt etmek istiyorum. amaç resim isimleri sayfa ile bağdaşsın sayfa sayımız cok olacagından resmin ismini değiştirmeyi manuele bırakmak istemiyorum. yanlış isim kayıt edilir ise userforma resim gelmeyektir.

böyle bir kod aradım fakat bulamadım yada aramayı beceremedim. yardımlarınızı beklıyorum. şimdiden teşekkurler.

 

[balanar]

Anlatımla alakalı sıkıntınız var bence. İnanın hiçbirşey anlamadım. Muhtemelen yardımcı olmak isteyen arkadaşlarda "hiçbirşey anlamadık" deyip kaçacaktır.

 

[bycakir]

olabilir haklısınız kısaca user formda yeni bir sayfa oluşturuyorum. daha sonra command butonla pc den çağırdıgım resmin ismini yeni olşturduğum sayfa ismi olacak şekilde (ThisWorkbook.Path & "\Resim Dosyaları\") yoluna kaydetmek istiyorum.

 

[bycakir]

bu şekilde bir kod ile resmi istediğim klasore kaydediyorum. fakat resmin ismini kayıt esnasında değiştiremiyorum.

Private Sub CommandButton3_Click()

Dim fso As Object

Set fso = VBA.CreateObject("Scripting.FileSystemObject")

With Application.FileDialog(msoFileDialogFilePicker)

.Title = "Dosya Seçiniz"

        If .Show = True Then

            dosya = .SelectedItems(1)

        End If

End With

fso.CopyFile dosya, ThisWorkbook.Path & "\Resim Dosyaları\"

End Sub

 

[bycakir]

sorun çözülmüştür . teşekkürler