excelde toplu şekilde resimleri ve isimleriyle birlikte kaydetmek.

[emre3703]

Merhaba,

Excelde a sütünğnde 800 tane resim var ve b sütününde'de isimleri var bu resimleri masaüstüne isimleriyle birlikte nasıl kaydederim?

Birkaç kod buldum ama olmadı yardımcı olur musunuz?

İyi çalışmalar.

 

[hamitcan]

C dizininde Deneme isimli bir klasör oluşturun ve kodu çalıştırın.

Sub ResimleriDisaAktar()
For i = 1 To ActiveSheet.Shapes.Count

    strImageName = ActiveSheet.Cells(ActiveSheet.Shapes(i).TopLeftCell.Row, 2).Value
    ActiveSheet.Shapes(i).Select
   Selection.CopyPicture
    Set oDia = ActiveSheet.ChartObjects.Add(0, 0, ActiveSheet.Shapes(i).Width, ActiveSheet.Shapes(i).Height)
    Set oChartArea = oDia.Chart
    oDia.Activate
    With oChartArea
        .ChartArea.Select
        .Paste
        .Export ("C:\Deneme\" & strImageName & ".jpg")
    End With
    oDia.Delete 'oChartArea.Delete
Next
End Sub