Excel Forum


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 20-12-2008, 18:24   #1
a.cogurcu
 
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007
Cool Dosyadan resim alma....

Merhaba arkadaşlar,
Ben ayrı bir dosyada bulunan resimleri bir hücredeki isme göre sayfaya getirtip hücreye göre boyutlandırmak istiyorum. Yardımcı olabilir misiniz?

Formdaki örnekleri biraz inceledim ama uyarlarken hata verdim...

Yardımlarınız için şimdiden çok teşekkür ederim...
Eklenmiş Dosyalar
Dosya Türü: rar Kitap1.rar (117.0 KB, 76 Görüntülenme)
a.cogurcu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 19:31   #2
a.cogurcu
 
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007
Varsayılan

yardımcı olabilecek kimse yok mu acaba?
a.cogurcu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 19:38   #3
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 10,845
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

7 dakikada çözüm bekliyorsunuz.

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı, F6 hücresi değiştiğinde f6 daki isimle ilgili resim gelir.

Resimlerin yolu aşağıdaki kırmızı olarak belirtilen yeri kendinize göre ayarlayınız.

Yine aşağıdaki kodlara göre uzantısı jpg olan dosyaları listeler.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [F6]) Is Nothing Then Exit Sub
Image1.Picture = LoadPicture("C:\Resimler\" & [F6] & ".jpg")
Image1.PictureAlignment = fmPictureAlignmentCenter
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureTiling = False
End Sub
Eklenmiş Dosyalar
Dosya Türü: zip Resim.zip (122.4 KB, 329 Görüntülenme)
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 20:12   #4
tahsinanarat
Altın Üye
 
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,368
Excel Vers. ve Dili:
Ofis 2003 Türkçe
Varsayılan Resimden isme gitme

Resimlerinizin d sürücüsünde foto isimli klasörde olduğu varsayılmıştır, siz klasör yolunu kendinize göre değiştiriniz, Necdet hocam çok güzel bir çözüm sunmuş, benim ki de başka bir altarnatif olsun, resimlerinizi güncelledikten sonra seçeceğiniz resim ismine göre bilgilerinizi getirebilirsiniz. (yarım saattir bununla uğraşıyordum, boşa gitmesin diye ekliyorum.) Kolay gelsin.
Eklenmiş Dosyalar
Dosya Türü: rar Kitap2.rar (122.8 KB, 216 Görüntülenme)
tahsinanarat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 20:19   #5
a.cogurcu
 
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007
Varsayılan

Hocam çok teşekkür ederim emeğine sağlık... evet biraz acele ettim galiba.... son birkaç saattir bunu deniyorum olmadı bir türlü... ondan acelemiz!!!

Sağol
a.cogurcu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 20:21   #6
a.cogurcu
 
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007
Varsayılan

tahsinanarat sana da teşekkür ediyorum emeğine sağlık....

Bu site gerçekten çok faydalı bütün arkadaşlar çok yardımsever... başka bir yerde olsa hiç cevap alamazdınız herhalde....
a.cogurcu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 21:11   #7
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,075
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Selamlar,
Syn. Necdet Bey, alınan resmi hücreye göre otomatik boyutlandırabiliyor muyuz?
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-12-2008, 22:37   #8
a.cogurcu
 
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007
Varsayılan

doğrusu bu benim de işime yarar!!! ilgilenirseniz sevinirim!!!!
a.cogurcu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-12-2008, 00:39   #9
a.cogurcu
 
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007
Cool

arkadaşlar yardımcı olabilecek kimse yok mu?
a.cogurcu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-12-2008, 00:51   #10
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 10,845
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Alıntı:
leumruk tarafından gönderildi Mesajı Görüntüle
Selamlar,
Syn. Necdet Bey, alınan resmi hücreye göre otomatik boyutlandırabiliyor muyuz?

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/f136/persone...ya-t22790.html
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Ç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 00:41


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


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi - TYPO3 Türkiye - 2015 Fuar - Çorlu Mimarlık - Çorlu Hotel - Rotary Web Sitesi
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden