En boy oranını koruyarak resim yükleme

Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Merhabalar
örnek dosyada Sayın Korhan Ayhan uzmanımın kodlarıyla oluşturulmuş ve çok kullanışlı bir dosya vardır.

Dosyanın özelliği şudur:
Dosyayla aynı klasörde bulunan bir resmin adını herhangi bir hücreye girdiğimizde, ve makro düğmesine bastığımızda, resmi, otomatik olarak isim yazdığımız hücrenin sağına getirmektedir.
(orjinalinde bir üst hücreye geliyordu, ben sağa gelecek şekilde değiştirdim)

Örnekte olduğu gibi resimler B1 ve B2 ye gelmiş durumda.

Fakat şöyle olursa daha iyi olur bence.
Orjinal en boy oranı korunarak, tayin ettiğimiz hücrenin durumuna göre büyüyerek veya küçülerek gelecek şekilde değiştirebilir miyiz?

Tıpkı B5 ve B6 da gösterdiğim gibi

Teşekkürler

En boy oranı korunup gelen resimlerin hücre içindeki konumundan, (hücrenin sağı solu veya ortası gibi) daha sonra bahsedeceğim.

Örnekte sola dayadım resimleri

https://www.dosya.tc/server28/l416aj/ornek.xls.html

https://s4.dosya.tc/server10/2wgtq3/resim1.JPG.html

https://www.dosya.tc/server28/d6tit7/resim2.JPG.html

Unutmadan dosyanın bir özelliğinden daha bahsedeyim. Eğer dosya adını yazdığımız hücrenin içeriğini sildikten sonra yine aynı hücrede düğmeye basarsak, sağdaki resim silinir.
Bence bu da güzel bir özellik.
 
Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
En boy oranını korumak için
.ShapeRange.LockAspectRatio = msoFalse kodunu .ShapeRange.LockAspectRatio = msoTrue olarak değiştirip deneyiniz.
 
Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Bu linkten indirebilirsiniz.

 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Bu linkten indirebilirsiniz.

Sayın uzmanım çok teşekkürler
Az önce olmamıştı gönderdiğinizi deneyeyim diye aceleden kendi örneğimi denemişim üstüste ????
Şimdi denemeler yapıyorum
 
Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Kodun çalışma mantığını çok incelemedim.
Resim2 yi bir alt hücreye taşıyın.
Sonra butona basın

Birde hücre boyutunu değiştirdiğinizde el ile resimleri silin.
sonra butona basın.

Çok incelemedim. Resim silme ile ilgili bir sorun var gibi.

Office 2010 Tr de denedim. Yazdığım şekilde orantılı resim getiriyor.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Kodun çalışma mantığını çok incelemedim.
Resim2 yi bir alt hücreye taşıyın.
Sonra butona basın

Birde hücre boyutunu değiştirdiğinizde el ile resimleri silin.
sonra butona basın.

Çok incelemedim. Resim silme ile ilgili bir sorun var gibi.

Office 2010 Tr de denedim. Yazdığım şekilde orantılı resim getiriyor.
Asri uzmanım sorunu anladım.
Kodlardaki bahsettiğimiz değişiklik (false-true) excel 2010 da çalışıyor
fakat excel 2003 te çalışmıyor
(ikisinde de denemiştim)

Bu konuda son sorum şudur: Resim hücrenin soluna dayanıyor ya, hücreyi ortalayacak şekilde konumlandırmak için hangi ayarı değiştirmeliyiz?
 
Üst