URL den Excel sayfasına görsel alma

[tamer42]

Merhaba,

Ekli dosyada C sütununda görsel linkleri mevcut, tıklayınca ilgili görsel Url olarak açılıyor,

sormak istediğim bu görselleri "küçük resim" olarak D sütununda ilgili hücereye nasıl getirebiliriz?

teşekkürler,
iyi Çalışmalar.

 

[ridvanucok]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub ResimleriKucult()

    Dim satir As Long
    Dim resimUrl As String
    Dim resim As Picture
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    
    For satir = 1 To ws.Cells(Rows.Count, "C").End(xlUp).Row
        resimUrl = ws.Cells(satir, "C").Value
        Set resim = ws.Pictures.Insert(resimUrl)
        With resim
            .Left = ws.Cells(satir, "D").Left
            .Top = ws.Cells(satir, "D").Top
            .Width = 50 'küçük resim için istediğiniz genişliği belirleyebilirsiniz
            .Height = 50 'küçük resim için istediğiniz yüksekliği belirleyebilirsiniz
        End With
    Next satir
    
End Sub

Bu kod, C sütununda resim URL'lerini içeren hücreleri tarar ve D sütununa küçük resimler olarak yerleştirir. Bu kodu çalıştırmadan önce, resimleri indirmeniz ve C sütununa URL'lerini eklemeniz gerekiyor. Ayrıca, resim boyutlarını değiştirmek istiyorsanız, kodun 22. ve 23. satırlarındaki .Width ve .Height değerlerini istediğiniz boyutlara göre değiştirebilirsiniz.

 

[tamer42]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub ResimleriKucult()

    Dim satir As Long
    Dim resimUrl As String
    Dim resim As Picture
    Dim ws As Worksheet
   
    Set ws = ActiveSheet
   
    For satir = 1 To ws.Cells(Rows.Count, "C").End(xlUp).Row
        resimUrl = ws.Cells(satir, "C").Value
        Set resim = ws.Pictures.Insert(resimUrl)
        With resim
            .Left = ws.Cells(satir, "D").Left
            .Top = ws.Cells(satir, "D").Top
            .Width = 50 'küçük resim için istediğiniz genişliği belirleyebilirsiniz
            .Height = 50 'küçük resim için istediğiniz yüksekliği belirleyebilirsiniz
        End With
    Next satir
   
End Sub

Bu kod, C sütununda resim URL'lerini içeren hücreleri tarar ve D sütununa küçük resimler olarak yerleştirir. Bu kodu çalıştırmadan önce, resimleri indirmeniz ve C sütununa URL'lerini eklemeniz gerekiyor. Ayrıca, resim boyutlarını değiştirmek istiyorsanız, kodun 22. ve 23. satırlarındaki .Width ve .Height değerlerini istediğiniz boyutlara göre değiştirebilirsiniz.

teşekkürler Rıdvan Hocam
iyi ki varsınız!

 

[tamer42]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub ResimleriKucult()

    Dim satir As Long
    Dim resimUrl As String
    Dim resim As Picture
    Dim ws As Worksheet
   
    Set ws = ActiveSheet
   
    For satir = 1 To ws.Cells(Rows.Count, "C").End(xlUp).Row
        resimUrl = ws.Cells(satir, "C").Value
        Set resim = ws.Pictures.Insert(resimUrl)
        With resim
            .Left = ws.Cells(satir, "D").Left
            .Top = ws.Cells(satir, "D").Top
            .Width = 50 'küçük resim için istediğiniz genişliği belirleyebilirsiniz
            .Height = 50 'küçük resim için istediğiniz yüksekliği belirleyebilirsiniz
        End With
    Next satir
   
End Sub

Bu kod, C sütununda resim URL'lerini içeren hücreleri tarar ve D sütununa küçük resimler olarak yerleştirir. Bu kodu çalıştırmadan önce, resimleri indirmeniz ve C sütununa URL'lerini eklemeniz gerekiyor. Ayrıca, resim boyutlarını değiştirmek istiyorsanız, kodun 22. ve 23. satırlarındaki .Width ve .Height değerlerini istediğiniz boyutlara göre değiştirebilirsiniz.

Rıdvan Hocam tekrar merhaba
Resimleri indirince satırı kopyalayıp başka sayfaya yapıştırdeğiştiğimizde resimleri en-boy oranı çok bozuluyor.
bununla ilgili bir öneriniz var mıdır?
teşekkürler,