Sayfaya yüklenen resim yolunu öğrenme

[tokman]

Hayırlı günler,
Bir konuda yardımlarınıza ihtiyacım var.
Sayfa1' e her hangi bir klasörden resim yüklüyorum (Ekle/resim).
Yüklediğim bu resmin adını A1 hücresine yazdırmak istiyorum. Bu mümkün mü.

 

[Mahmut Kök]

Hayırlı günler,
Bir konuda yardımlarınıza ihtiyacım var.
Sayfa1' e her hangi bir klasörden resim yüklüyorum (Ekle/resim).
Yüklediğim bu resmin adını A1 hücresine yazdırmak istiyorum. Bu mümkün mü.

Resim eklemek için excelin kendi özelliği olan Ekle/Resim fonksiyonu yerine aşağıdaki kodu kullanarak resim eklerseniz isteğiniz olacaktır.

Sub ResimEkle()

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "TAMAM"
        .Title = "İstediğiniz resmi seçin"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"

        If .Show = -1 Then
            Dim rsm As Object
            Set rsm = ActiveSheet.Pictures.Insert(.SelectedItems(1))
            Cells(1, 1) = .SelectedItems(1) 'Resmin tam yolunu A1 hücresine yazar.
            Cells(2, 1) = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\") + 1, Len(.SelectedItems(1))) 'resmin adını A2 hücresine yazar.
        Else
            MsgBox ("Resim alınmadı.")
        End If
    End With
End Sub

 

[tokman]

Çözüldü

Teşekkür ederim.
Dediğinizi yapınca sorun çözüldü.