excel ve jpg resim birleştirilmesi

[help me]

Merhaba arkadaslar excede örneğin A kolonunda yazılı 123 kodu ile 123.jpg kodunu excelde B kolonunda Makro olmadan birleştirmek istiyorum. Bunu nasıl yapabilirim ara yazılım vs varmı ?

 

[Asri]

Soruyu tam anlamamak ile beraber, B1 e aşağıdaki şekilde formülü yazıp deneyiniz.

=A1&".jpg"

 

[Asri]

Kodu dosyanızın modul bölümüne yapıştırın.
A sütunundaki resim1 , resim2 gibi kodlara resim1.jpg , resim2.jpg ekleyerek ilgili resmi B kolonuna getirir.
Resim yükseklik ve genişliğini hücreye göre ayarlanılır.

Sub resimyukle()

    sonsatir = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To sonsatir
        Set resimhcr = Cells(i, "B")
        For Each silinecek In ActiveSheet.Pictures
            If Not Intersect(silinecek.TopLeftCell, resimhcr) Is Nothing Then
               silinecek.Delete
            End If
        Next
       
        yol = "D:\Deneme\resimler\"
        dosya = yol & Cells(i, "A").Value & ".jpg"
       
        If dosyavarmi(dosya) Then
            Set resimatama = ActiveSheet.Shapes.AddPicture(dosya, True, True, resimhcr.Left, resimhcr.Top, resimhcr.MergeArea.Columns.Width, resimhcr.MergeArea.Rows.Height)
        End If
    Next i
End Sub

Function dosyavarmi(dosya)
  Dim ds, a
  Set ds = CreateObject("Scripting.FileSystemObject")
  a = ds.FileExists(dosya)
  If a = True Then
    dosyavarmi = True
  Else
    dosyavarmi = False
  End If
End Function

 

[help me]

yardımlarınız ıcın çok teşekkür ederim