Soru Jpeg formatındaki faturayı excele aktarma?

[Tertil]

Faturanın bilgisayar üzerinde görüntüsünü aldım.Formatı jpeg. Bunu excele şablon olarak sabitlemek istiyorum. İnternet üzerinden programlar ve siteler denedim ama tam olarak istediğim olmadı. Bana yol gösterir misiniz? Faturalarımi çıktı şeklinde almak istiyorum.

 

[Seyit Tiken]

Teorik olarak size şöyle bir yöntem önerebilirim : Faturanızın gerçek boyutlu fotosunu excel'e yapıştırın > yazı yazılacak yerlere METİN KUTUSUNU çizin veya satır ve sütunları yazı yazılacak alanlara göre ayarlayınız > sayfanın kenar boşluklarını sıfırlayıp deneyiniz.

 

[excellkurdu]

https://www.excel.web.tr/threads/makro-ile-huecreye-resim-ekleme.162139/

Sub TestInsertPictureInRange()
    InsertPictureInRange "C:\Users\RecepCem\Desktop\Altın.jpg", _
        Range("E6")
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub

 

[Tertil]

https://www.excel.web.tr/threads/makro-ile-huecreye-resim-ekleme.162139/

Sub TestInsertPictureInRange()
    InsertPictureInRange "C:\Users\RecepCem\Desktop\Altın.jpg", _
        Range("E6")
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub

Hocam şuan işteyim akşam deneyeceğim inşallah

 

[Tertil]

https://www.excel.web.tr/threads/makro-ile-huecreye-resim-ekleme.162139/

Sub TestInsertPictureInRange()
    InsertPictureInRange "C:\Users\RecepCem\Desktop\Altın.jpg", _
        Range("E6")
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub

Hocam bugün deneme şansı buldum. Ama nasıl uygulamam gerekiyor? Kodu f5 ile çalıştırdığım zaman hiçbir şey değişmiyor. Biraz bilgi verebilir misiniz uygulaması nasıl oluyor?

 

[excellkurdu]

Örnek dosya ektedir.
Resimler aynı dosya içinde olmalı. Eklemek istediğiniz resmin adını D3 hücresine yazınız. Eğer resim uzantınız (jpeg, jpg gibi) farklı ise;

InsertPictureInRange ActiveWorkbook.Path & "\" & Range("D3") & ".jpeg", Range("E6")

jpeg uzantsını değiştiriniz.