Soru RESİMLERİN ADLARINI OTOMATİK DEĞİŞTİRME

Katılım
4 Mayıs 2020
Mesajlar
39
Excel Vers. ve Dili
Excel 2016 Türkçe
Merhaba arkadaşlar Siz değerli ustalardan bir ricam olacaktı

Excel de B sütununda dosya numaraları örnk : 2022/1 var E sütununda ise o dosya numarasına ait resim var (jpg ) ve bu şekilde devam ediyor birden fazla dosya numarası ve resim var bana buradaki resimlere B sütununda bulunan DOSYA NUMARALRININ yazmasını istiyorum mümkünse şimdiden Teşekkürler.
OLMASINI İSTEDİĞİM ŞEY
ÖRNEK : B2 DE 2022/1 E2 DE 2022/1.JPG
B3 DE 2022/2 E3 DE 2022/2. JPG resim adı değişecek
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Örnek dosya paylaşırsanız destek almanız kolaylaşır.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Dosya barındırma sitelerine örnek dosyanızı yükleyip linkini forumda paylaşabilirsiniz.
 
Katılım
4 Mayıs 2020
Mesajlar
39
Excel Vers. ve Dili
Excel 2016 Türkçe
hocam linkteki örneğe bakarsanız sevinirim
SADECE RESİMLERİN ADLARI - DOSYA NUMARALARI OLARAK DEĞİŞECEK
BENDEKİ RESİMLERDE DOSYALARA AİT KİŞİLERİN İSİMLERİ VAR ŞİMDİ İSE KİŞİ ADLARI YERİNE DOSYA NUMARALARI OLMASI GEREKİYOR
SAYGILAR
 
Son düzenleme:

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Deneyiniz.

C++:
Option Explicit

Sub Change_Picture_Name()
    Dim Resim As Object
    
    For Each Resim In ActiveSheet.Shapes
        Resim.Name = Cells(Resim.TopLeftCell.Row, 2)
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Önerdiğim kodu çalıştırmadan önce;




Kodu çalıştırdıktan sonra;

 

Ekli dosyalar

Üst