Resimlerin ismini stok ismi yapma

[Biray3550]

Merhaba,
A Sütunundaki resimlerin ismini B sütunundaki karşılığındaki stok kodları ile değiştirim masa üstüne değişmiş isimleriyle JPG formatında kaydetme için macro konusunda yardımcı olabilir misiniz?
Teşekkür ederim.

 

[Mdemir63]

Selamlar

Aşağıdaki kodu bir modül içine kopyalayıp deneyiniz.
Sayfa adını kendi dosyanıza göre düzenleyiniz.

Sub ResimAdlariniDegistir()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim i As Integer
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    i = 2
    For Each shp In ws.Shapes
            shp.Name = ws.Cells(i, 2).Value
            i = i + 1
    Next shp
End Sub

 

[Biray3550]

Böyle hata veriyor ama ismini resimlerin ismini yapmış. Fakat bu resimleri masa üstüne de kaydedecek. Değişen adıyla .

 

[Mdemir63]

Selam

 

[Biray3550]

Ben yapmadı demedim. Resimlerin Masa üstüne de kaydetmesi gerekiyor.

 

[Korhan Ayhan]

Buradaki konu belki ilginizi çekebilir.

kapalı excel dosyalarından resimleri çıkartmak

merhaba ustadlarım. elimde tek klasör ıcınde 2000 adet excel dosyası var ve bu dosyların içlerinde jpg formatında resımler var. ben bu excellerın ıcındekı resımlerı baska bır klsöre toplamak ıstıyorum ( resım kalıtelerı bozulmadan ). resımlerı toplarken hangı excelden aldıysa o excelın...

www.excel.web.tr