![]() |
| ![]() |
|
DUYURU SİSTEMİ / REKLAM PANOSU |
Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
![]() |
![]() |
|
Paylaş | Konu Araçları | Görünüm Modları |
![]() |
#1 |
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007 |
![]() 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... |
![]() |
![]() |
![]() |
#2 |
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007 |
![]() yardımcı olabilecek kimse yok mu acaba?
|
![]() |
![]() |
![]() |
#3 |
Moderatör
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,185
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe |
![]() 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. 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
__________________
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? ![]() |
![]() |
![]() |
![]() |
#4 |
Altın Üye
Giriş: 14/03/2005
Şehir: İstanbul
Mesaj: 1,781
Excel Vers. ve Dili:
Ofis 2016 Türkçe |
![]() 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.
|
![]() |
![]() |
![]() |
#5 |
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007 |
![]() 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 |
![]() |
![]() |
![]() |
#6 |
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007 |
![]() 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.... |
![]() |
![]() |
![]() |
#7 |
Uzman
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,266
Excel Vers. ve Dili:
Office 2010 & 2013 tr |
![]() 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.) |
![]() |
![]() |
![]() |
#8 |
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007 |
![]() doğrusu bu benim de işime yarar!!! ilgilenirseniz sevinirim!!!!
|
![]() |
![]() |
![]() |
#9 |
Giriş: 07/12/2008
Şehir: Bursa
Mesaj: 67
Excel Vers. ve Dili:
2007 |
![]() arkadaşlar yardımcı olabilecek kimse yok mu?
|
![]() |
![]() |
![]() |
#10 | |
Moderatör
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,185
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe |
![]() Alıntı:
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? ![]() |
|
![]() |
![]() |