Excel'e eklenen resmin boyutunu otomatik olarak küçültme

[cout(h)ane]

Herkese merhaba,

Excel'e "Dosyadan Resim Ekle" ile eklenen resmin boyutunu otomatik olarak 50 kb civarına düşürecek kodlama hakkında bilgisi olan var mıdır?

Amacım tam olarak şu: Kullanıcılar için hazır bir excel dosya formatı yarattım, bu dosyaya bazı resimler ekleyerek bana geri göndermelerini istiyorum. Fakat kullanıcı profilinin bilgisayar bilgisi çok değişken ve bazılarının resim dosyasının boyutlarını küçültmesini istemek çok hayalperestlik oluyor (bilgisayarı açmaları bile mucize ). Dolayısıyla resim dosyası eklemeleri için sayfa üzerine bir buton koyarak işlerini kolaylaştırdım ancak bu eklenen resmin boyutunu excel içinde vba kodlama ile küçültmeyi başaramadım.

Yardımcı olabilirseniz sevinirim.

 

[Seyit Tiken]

Bu örnek kodu deneyip kendinize uyarlayınız.

Sub Düğme5_Tıklat()
ActiveSheet.Shapes("Rectangle 2").Select
Selection.ShapeRange.Height = 60
Selection.ShapeRange.Width = 54
Range("A1").Select
End Sub

NOT : DİKDÖRTGEN üzerinde uygulama yaptım. İstenilen RESİM üzerine kendinize uyarlarsınız.

 

[cout(h)ane]

Sn.Tiken,
Sanırım sorumu yanlış sordum, lütfen mazur görünüz.. Sizin metodunuzu ben de uygulamıştım ama aradığım cevap tam olarak bu değil. Şöyle ki; resmi excel'e ekleyip kaydettiğimde dosya 899 kb boyutunda, daha sonra verdiğiniz kodlamalarla "resmin ölçülerini" değiştirip kaydettiğimde dosya boyutu hala 899 kb oluyor.

Halbuki benim ulaşmak istediğim sonuç dosya boyutunun mesela 120 kb'a düşmesi. Sizin yaptığınız şekilde sadece resmin ölçüleriyle oynamış oluyoruz, dosyanın boyutunda herhangi bir düşüm olmuyor.

Yine de ilginize teşekkürler.

 

[orcunerkek54]

dosya uzantısı değiştirilince küçülüyor olarak biliyorum.. bunada araçlar özellikler görünümde uzantıları göster vardı yanılmıyorsam bu şekildeydi ama tam hatırlayamıyorum sonucun ne olduğunu kolay gelsin.

 

[Levent Menteşoğlu]

Bunun için sayfa üzerindeki resmin çözünürlüğünü(dpi) düşürmek gerekir. Buda resim kalitesini düşürecektir. İşlemin el ile yapılması için resmi seçin ve üzerinde sağ-klik yapın. Açılan pencerede, resim biçimlendir-resim-sıkıştır-web/ekran olarak yapabilirsiniz. Bu işlem makro ile yapılabilirmi bilemiyorum.


Not:Makro kaydet ile olmuyor.

 

[cout(h)ane]

Sayın leventm,
Tam olarak yapmak istediğim resmin çözünürlüğünü düşürmektir, zira kullanıcıların çektikleri fotoğraflar gerekli olmadığı kadar kaliteli (dijital teknoloji sağolsun), bu da benim dosyamın boyutlarını artırıyor ve e-posta ile gönderilebilir limitlerin üstüne çıkmasına sebep oluyor.

Açılan pencerede, resim biçimlendir-resim-sıkıştır-web/ekran olarak yapabilirsiniz.

Bahsettiğiniz sıkıştır opsiyonu bende çıkmıyor, sanırım Excel sürümünden kaynaklanıyordur.

Bence gerçek çözüm daha resmi excel'e eklemeden boyutunu düşürmek olmalı ama bunu excel-vba kodlama ile yapmak mümkün olur mu bilemiyorum tabii.. Belki diğer tecrübeli arkadaşlar bu konuda yorum yapabilirler.Yine de ilginize sonsuz teşekkürler.

 

[Levent Menteşoğlu]

Bence gerçek çözüm daha resmi excel'e eklemeden boyutunu düşürmek olmalı ama bunu excel-vba kodlama ile yapmak mümkün olur mu bilemiyorum tabii.. Belki diğer tecrübeli arkadaşlar bu konuda yorum yapabilirler.Yine de ilginize sonsuz teşekkürler.

Bu işlemi yapmak için bir çok program yazıldığını düşünürseniz, aynı işlemi kodlarla yapmak bana çok kolay değil gibi geliyor. Konu hakkında başta Haluk üstadımız olmak üzere diğer üyelerimizinde düşüncelerini bende öğrenmek isterim.

Not:İsterseniz aynı sorunuzu birde ingilizce başlığında sorun.