Soru ❓ Sayfaya Eklenen Resmin Dosya Yolunu Hücreye Yazdırma

[Yasin Karaçivi]

Merhaba ??‍
Excel'de sayfaya eklediğim resmin dosya yolunu (uzantılarıyla beraber) hücreye nasıl yazdırabilirim

Yardımcı olanlara şimdiden teşekkür ederim ?

 

[Muzaffer Ali]

Merhaba.
Resim ekleme kodlarını paylaşırsanız ona göre bir cevap verilebilir.

 

[Yasin Karaçivi]

Merhaba.
Resim ekleme kodlarını paylaşırsanız ona göre bir cevap verilebilir.

Sub ResimSec()
    Dim fNameAndPath As Variant
    Dim img As Shape
   
Range("A2:A100").ClearContents
   
    fNameAndPath = Application.GetOpenFilename(Title:="Eklemek için Resim Seçiniz")
    If fNameAndPath = False Then Exit Sub
    Set img = ActiveSheet.Shapes.AddPicture(Filename:=fNameAndPath, _
                                            LinkToFile:=False, SaveWithDocument:=True, _
                                            Left:=1, Top:=1, Width:=-1, Height:=-1)
    With img
        'Resize Picture to fit in the range....
        .Left = ActiveSheet.Range("A3").Left
        .Top = ActiveSheet.Range("A3").Top
        .Width = ActiveSheet.Range("A3:E3").Width
        .Height = ActiveSheet.Range("A3:E20").Height
        .Placement = 1
        .DrawingObject.PrintObject = True
    End With
   

Range("A2") = fNameAndPath

End Sub

Birkaç deneme sonucu bu kodu buldum ve sonuç veriyor gibi. Bir de resim seçme penceresi açıldığında sadece .jpg, .jpeg, .gif ve .png gibi resim dosyası uzantılarını filtrelemesini nasıl sağlayabilirim

 

[Muzaffer Ali]

Aşağıdaki satırı silin

fNameAndPath = Application.GetOpenFilename(Title:="Eklemek için Resim Seçiniz")

Yerine aşağıdaki satırı ekleyin

fNameAndPath = Application.GetOpenFilename(filefilter:="Resim Dosyaları  (*.jpg; *.jpeg; *.gif; *.png), *.jpg; *.jpeg; *.gif; *.png", Title:="Eklemek için Resim Seçiniz")

 

[Yasin Karaçivi]

Aşağıdaki satırı silin

fNameAndPath = Application.GetOpenFilename(Title:="Eklemek için Resim Seçiniz")

Yerine aşağıdaki satırı ekleyin

fNameAndPath = Application.GetOpenFilename(filefilter:="Resim Dosyaları  (*.jpg; *.jpeg; *.gif; *.png), *.jpg; *.jpeg; *.gif; *.png", Title:="Eklemek için Resim Seçiniz")

Çok teşekkür ederim Muzaffer Bey, işime çok yarayacak ??