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

Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
25-07-2023
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,516
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosya paylaşırsanız destek almanız kolaylaşır.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,516
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Dosya barındırma sitelerine örnek dosyanızı yükleyip linkini forumda paylaşabilirsiniz.
 
Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
25-07-2023
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,516
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 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
 
Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
25-07-2023
İlginiz için teşekkür ederim fakat olmadı
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,516
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Önerdiğim kodu çalıştırmadan önce;




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

 

Ekli dosyalar

Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
25-07-2023
Hocam yeni gördüm iş yerinden ayrıldım yarın dönüş yapacağım çok teşekkürler. Ben kodu bir butona ekleyerek denemiştim.Peki isimleri değiştikten sonra bu resimleri bir klasöre nasıl toplaya bilirim
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,516
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Resimleri bulunduğu hücre kenarlığı içinde olacak şekilde konumlandırıp deneyiniz. Özellikle sol üst köşe ve sol kenarlık hizalamasını düzenleyip deneyiniz.
 
Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
25-07-2023
Resimleri bulunduğu hücre kenarlığı içinde olacak şekilde konumlandırıp deneyiniz. Özellikle sol üst köşe ve sol kenarlık hizalamasını düzenleyip deneyiniz.
Söylediğiniz gibi boyutla alakalı ancak 1500 adet resim var bunları excelde nasıl boyutlarını ayarlayacağım
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,516
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Forumda arama yaparsanız örnek linklere erişebilirsiniz.



Ek olarak Google arama sonularınada linkten erişebilirsiniz.

Google Arama Sonuçları
 
Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
25-07-2023
Forumda arama yaparsanız örnek linklere erişebilirsiniz.



Ek olarak Google arama sonularınada linkten erişebilirsiniz.

Google Arama Sonuçları
Çok teşekkür ederim. Sadece Excel deki resimleri klasöre toplama işi kaldı bu konuda da yardımcı olabilirseniz çok seviniriz.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,516
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu işlem için excelin FARKLI KAYDET özelliğinden faydalanabilirsiniz.

Masaüstünde yeni bir klasör oluşturunuz. (Adı mesela RESİMLER olabilir)
Sonra resimleri içeren excel dosyanızı açınız.
Farklı kaydet komutunu çalıştırınız.
Açılan menüden masaüstünde oluşturduğunuz klasörü seçiniz.
Kayıt türünden WEB SAYFASI (WEB PAGE) seçeneğini seçiniz.
Eğer bir uyarı mesajı gelirse EVET diyerek devam ediniz.

Masaüstündeki klasörü açtığınızdaki içinde bir HTML uzantılı dosya ile başka bir klasör görünecektir. Resimlere klasörden erişebilirsiniz. Eğer klasör içinde gereksiz nesneler varsa temizlersiniz.
 
Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
25-07-2023
Bu işlem için excelin FARKLI KAYDET özelliğinden faydalanabilirsiniz.

Masaüstünde yeni bir klasör oluşturunuz. (Adı mesela RESİMLER olabilir)
Sonra resimleri içeren excel dosyanızı açınız.
Farklı kaydet komutunu çalıştırınız.
Açılan menüden masaüstünde oluşturduğunuz klasörü seçiniz.
Kayıt türünden WEB SAYFASI (WEB PAGE) seçeneğini seçiniz.
Eğer bir uyarı mesajı gelirse EVET diyerek devam ediniz.

Masaüstündeki klasörü açtığınızdaki içinde bir HTML uzantılı dosya ile başka bir klasör görünecektir. Resimlere klasörden erişebilirsiniz. Eğer klasör içinde gereksiz nesneler varsa temizlersiniz.
Her şey için çok teşekkür ederim sağolun Rabbim razı olsun
 
Üst