Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-01-2017, 13:16   #1
ErdemBakir24
Altın Üye
 
Giriş: 30/12/2016
Şehir: İstanbul
Mesaj: 40
Excel Vers. ve Dili:
Office 2008-2010-2013-2016 Türkçe
Varsayılan Otomatik resim kaydetme

Merhaba,

ekteki örnek dosyada resimleri, a sütunundaki kodlar ile bir klasöre kaydedebilmek için ne yapmam gerekiyor.

http://s3.dosya.tc/server10/p5ow9n/products.xlsx.html

teşekkürler
ErdemBakir24 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2017, 15:11   #2
rabbace
Altın Üye
 
Giriş: 03/04/2014
Şehir: İzmit
Mesaj: 297
Excel Vers. ve Dili:
Excel 2013 - Türkçe
Varsayılan

Hocam dosyayı farklı kaydet - Web sayfası olarak kaydet dersen bütün resimleri sırayla kaydediyor fakat dosya adını image1, image2... gibi otomatik adlandırıyor. A sütunundaki kodları dosya adı olarak veremedim.
rabbace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2017, 15:26   #3
ErdemBakir24
Altın Üye
 
Giriş: 30/12/2016
Şehir: İstanbul
Mesaj: 40
Excel Vers. ve Dili:
Office 2008-2010-2013-2016 Türkçe
Varsayılan

Tekrar teşekkür ederim rabbace
ErdemBakir24 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2017, 18:50   #4
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,783
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan İsimleri değiştirilmiş resimleriniz

Resimleri web sayfası olarak kaydetip bir klasöre aldım, image003.png gibi isim vererek exceldeki sırasıyla aldığını görünce önce .jpg çevirdim sonra dosya ismi değiştirme kodlarıyla isimlerini a sütunundaki ürün isimleriyle değiştirdim, çözümü ulaşana kadar resimleriniz lazım olur diye ekli rar dosyasında gönderiyorum.

http://s3.dosya.tc/server10/10dg2o/abc.rar.html
Eklenmiş Dosyalar
Dosya Türü: rar abc.rar (478.4 KB, 6 Görüntülenme)
__________________
Kolay Gelsin Tahsin.

Bu mesaj en son " 11-01-2017 " tarihinde saat 19:13 itibariyle tahsinanarat tarafından düzenlenmiştir....
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2017, 18:58   #5
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,783
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

Aşağıdaki kodlar c sürücüsüne belirtilen klasöre resimleri a sütunundaki isimlerle aldı, ancak resimler görünmüyor, boş gözüküyor, excel 2003 veya 2010 ve 2013 ü olan arkadaşlar deneyip sonucu bildirebilirlerse sevinirim.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Resim_Kaydet()

    Dim rsm As Shape, yol As String, sat As Long, grf As Object

    yol = "C:\ProResimler\"

    Application.ScreenUpdating = False

    For Each rsm In ActiveSheet.Shapes
        sat = rsm.TopLeftCell.Row
        rsm.Copy
        Set grf = ActiveSheet.ChartObjects.Add(0, 0, rsm.Width, rsm.Height)
        grf.Chart.Paste
        grf.Chart.Export yol & Cells(sat, "A") & ".jpg"
        grf.Delete
    Next rsm

    Application.ScreenUpdating = True

End Sub
__________________
Kolay Gelsin Tahsin.
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2017, 19:12   #6
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,783
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

Office 2003 kurdum denedim, sonuç yine aynı, uzman arkadaşlarımız kodlara bakabilirse sonuç alabiliriz belki. Bu kodu çok zaman önce denediğimi hatırlıyorum. Olumlu sonuçlar almıştım.
__________________
Kolay Gelsin Tahsin.
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2017, 19:32   #7
rabbace
Altın Üye
 
Giriş: 03/04/2014
Şehir: İzmit
Mesaj: 297
Excel Vers. ve Dili:
Excel 2013 - Türkçe
Varsayılan

Tahsinanarat hocam, excel 2016 da denedim, bahsettiğiniz şey oldu bende de isimleri aldı fakat boş resim çıktı.
rabbace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2017, 21:18   #8
Zeki Gürsoy
Uzman
 
Zeki Gürsoy kullanıcısının avatarı
 
Giriş: 30/12/2005
Şehir: Sakarya-Hendek
Mesaj: 3,451
Excel Vers. ve Dili:
Office 2016 (64 bit) - Türkçe
Varsayılan

Koda "grf.Select" eklerseniz resimler çıkar.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Resim_Kaydet()

    Dim rsm As Shape, yol As String, sat As Long, grf As Object

    yol = "C:\ProResimler\"

    Application.ScreenUpdating = False

    For Each rsm In ActiveSheet.Shapes
        sat = rsm.TopLeftCell.Row
        rsm.Copy
        Set grf = ActiveSheet.ChartObjects.Add(0, 0, rsm.Width, rsm.Height)
        grf.Select
        grf.Chart.Paste
        grf.Chart.Export yol & Cells(sat, "A") & ".jpg"
        grf.Delete
    Next rsm

    Application.ScreenUpdating = True

End Sub
__________________

gursoyzeki@gmail.com




Zeki Gürsoy Çevrimiçi   Alıntı Yaparak Cevapla
Eski 12-01-2017, 08:41   #9
ErdemBakir24
Altın Üye
 
Giriş: 30/12/2016
Şehir: İstanbul
Mesaj: 40
Excel Vers. ve Dili:
Office 2008-2010-2013-2016 Türkçe
Varsayılan

Zeki Gürsoy,

Çok Teşekkürler. Varolun..
ErdemBakir24 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-01-2017, 13:35   #10
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,783
Excel Vers. ve Dili:
Ofis 2016 Türkçe
Varsayılan

Sn. Zeki hocam, çok teşekkür ederim, arşivimdeki eksik bilgiyi tamamlamış oldum sayenizde.
tabii ErdemBakir24 de teşekkür ederim, böyle bir konu açmasaydı bilmeyecektik.
__________________
Kolay Gelsin Tahsin.
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:38


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden