Hücrelere Resim Ekleme ve Boyutlandırma

Believing

VIP Üye
Kullanıcı
Katılım
1 Haz 2017
Mesajlar
75
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sayın Formdaş Arkadaşlar,

Ekteki çalışmaya "Resimlerim" isimli klasördeki resimleri Excel sayfasının "B" ve "D" sütunlarındaki hücrelere rastgele almak ve hücreye göre boyutlandırmak istiyorum.
Sitedeki örnekleri inceledim maalesef bir sonuç alamadım. Ekteki örneğe göre resimleri hücrelere alabilmem için nasıl bir prosedür kullanmalıyım?
Değerli yardımlarınızı rica ediyorum.

Saygılarımla,
 
Hücre Arka Plan Rengine göre formül
excel userform acces veritabanı çoklu kullanıcı

Ekli dosyalar

Çözüm
Ömer BARAN
@Believing

Resim adet ve boyutlarını (ebat değil) bilemiyorum ama
resimleri hücrelere eklemek yerine hücre açıklamalarına eklemenin daha anlamlı / pratik olduğunu belirteyim.

Kodun baş tarafındaki KLSR = ..... & "\" bilgisini (resimlerin bulunduğu dizin) kendinize göre düzenlersiniz.
If uzanti = .... Or ..... Then kısmına da resim uzantılarını ekleyebilir/değiştirebilirsiniz.
Kodda jpeg veya jpg diye yer alıyor.

Hücre açıklamalarına resimler eklenir ve hücre açıklamaları hücre boyutlarına göre boyutlandırılır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(8 satır)
Tarihe göre sırala Oylamaya göre sırala
@Believing

Resim adet ve boyutlarını (ebat değil) bilemiyorum ama
resimleri hücrelere eklemek yerine hücre açıklamalarına eklemenin daha anlamlı / pratik olduğunu belirteyim.

Kodun baş tarafındaki KLSR = ..... & "\" bilgisini (resimlerin bulunduğu dizin) kendinize göre düzenlersiniz.
If uzanti = .... Or ..... Then kısmına da resim uzantılarını ekleyebilir/değiştirebilirsiniz.
Kodda jpeg veya jpg diye yer alıyor.

Hücre açıklamalarına resimler eklenir ve hücre açıklamaları hücre boyutlarına göre boyutlandırılır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(35 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Ömer BARAN' Alıntı:
@Believing

Resim adet ve boyutlarını (ebat değil) bilemiyorum ama
resimleri hücrelere eklemek yerine hücre açıklamalarına eklemenin daha anlamlı / pratik olduğunu belirteyim.

Kodun baş tarafındaki KLSR = ..... & "\" bilgisini (resimlerin bulunduğu dizin) kendinize göre düzenlersiniz.
If uzanti = .... Or ..... Then kısmına da resim uzantılarını ekleyebilir/değiştirebilirsiniz.
Kodda jpeg veya jpg diye yer alıyor.

Hücre açıklamalarına resimler eklenir ve hücre açıklamaları hücre boyutlarına göre boyutlandırılır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(35 satır)
Genişletmek için tıklayın ...

Sayın Ömer Bey,

Muhteşem bir çalışma oldu sayenizde, kodlar kusursuz çalışıyor.
Çalışmaya günlük 100 ile 200 adet resim ekleyeceğim.
Resimleri temizlemek için sayfa içerisindeki açıklamaları silen bir kod yazmam yeterli olacak mı?
Ellerinize, emeğinize ve bilginize sağlık. ALLAH sizlerden, sevdiklerinizden ve sebep olanlardan razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Mevcut kodun en başında zaten B-D aralığı temizleniyor (hücre içerikleri/hücre açıklamaları)
ve baştan (sıfırdan) isim ve resim ekleme işlemi yapılıyor
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Mevcut kodun en başında zaten B-D aralığı temizleniyor (hücre içerikleri/hücre açıklamaları)
ve baştan (sıfırdan) isim ve resim ekleme işlemi yapılıyor
Genişletmek için tıklayın ...
Sayın Ömer Bey,

Affınıza sığınarak tamamen öğrenmek adına son bir soru sormak istiyorum.
Mevcut çalışmanın F sütununa da resim getirmek istersem, mevcut kodu nasıl revize etmeliyim. Beni aydınlatır mısınız?

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Satır ve sütun numaralarının belirlendiği kısım şurası:
say = say + 1: sut = 2
If (say Mod 2) = 0 Then: sut = 4
sat = Int((say - 1) / 2) + 3
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt