• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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
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
 
Örnek dosya paylaşırsanız destek almanız kolaylaşır.
 
Dosya barındırma sitelerine örnek dosyanızı yükleyip linkini forumda paylaşabilirsiniz.
 
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:
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
 
Önerdiğim kodu çalıştırmadan önce;




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

 

Ekli dosyalar

  • Untitled1.png
    Untitled1.png
    358 KB · Görüntüleme: 0
  • Untitled2.png
    Untitled2.png
    359 KB · Görüntüleme: 0
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.
 
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
 
Forumda arama yaparsanız örnek linklere erişebilirsiniz.



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

Google Arama Sonuçları
 
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.
 
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.
 
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
 
Geri
Üst