Excel'de Hücrelere Otomatik Resim Yerleştirme | VBA Kodu İle Adım Adım Rehber

Ayrıcalıklardan yararlanmak için bu kanala katılın:

Instagram & Linkedin: M. Mustafa BOLAT
Kurumsal Eğitim Talepleri: BYMMB.com

"Merhaba Excel severler! Bu heyecan verici videoyu izleyerek, Excel'de hücrelere VBA kodu kullanarak nasıl otomatik olarak resim yerleştirebileceğinizi öğreneceksiniz. Artık manuel olarak resimleri hücrelere yerleştirmekle vakit kaybetmek zorunda değilsiniz! VBA (Visual Basic for Applications) kodlamasının gücünü kullanarak, hızlı ve verimli bir şekilde resimleri istediğiniz hücrelere yerleştirebilirsiniz.

Bu video size adım adım rehberlik edecek ve kodlama becerilerinizi geliştirirken, Excel'de resim yerleştirmenin kolaylığını keşfedeceksiniz. Hem görsel olarak çarpıcı hem de veri işleme süreçlerinizi optimize eden bu yöntem, projelerinizde size büyük bir avantaj sağlayacak.

Unutmayın, bu videoda size sağladığım VBA kod örneğiyle, resim yerleştirme sürecini nasıl otomatikleştireceğinizi öğreneceksiniz. Kendi projelerinize uyarlayabileceğiniz bu örnek, iş akışınızı hızlandıracak ve zamanınızı verimli bir şekilde kullanmanıza yardımcı olacaktır.

Excel'de hücrelere VBA kodu ile resim yerleştirmenin büyüleyici dünyasına hazır olun! Bu videoyu izleyerek, Excel yeteneklerinizi bir adım öteye taşıyacak ve projelerinizi daha profesyonel ve etkileyici hale getireceksiniz. Hadi başlayalım ve Excel'de resim yerleştirmenin gücünü keşfedelim!"

Videoda yer alan kodlar:
Sub resim_ekle()
Set ws = Sheets("Sayfa1")
dosya = "C:\Users\BYMMB\Desktop\kapaklar"
resimler = Dir(dosya & "\*.*")

satir = 1
Do While resimler ""
uzanti = dosya & "\" & resimler
Set resim = ws.Pictures.Insert(uzanti)

With resim
resimSol = ws.Range("A" & satir).Left
resimUST = ws.Range("A" & satir).Top
resimGenislik = ws.Range("A" & satir).Width
resimYukseklik = ws.Range("A" & satir).Height

.Left = resimSol
.Top = resimUST
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Width = resimGenislik
.ShapeRange.Height = resimYukseklik
End With

satir = satir + 1
resimler = Dir
Loop
End Sub

[adildegirmenci]

Hocam merhaba,
Videolarınız çok eğitici ve keyifli sizden bir içerik isteğim olacaktı.
Içerik şunu yapacak excel de bulunan bir grafiği veya yazıyı belirli bir word formatına otomatik çalabileceğimiz bir kod.
Ne işimize yarayacak bu kod örneğin kopyala yapıştır işlerini ortadan kaldıracak. O işi sürekli yapıyorsak işimizi kolaylaştıracak.
Şimdi den teşekkür ederim.

[hilmilafci]

Hocam merhaba. Her bir fotoğraf altına Fotoğraf 1, Fotoğraf 2 şeklinde yazma imkanımız var mıdır?

[AliGöndelen]

Mustafa bey merhaba. Tecrübelerinizi bizimle paylaştığınız için öncelikle teşekkür ederim. Resimleri satır seklinde değil de sütun seklinde çağırabiliyor muyuz. Listem a1 a2 a3... hücrelerinde değil a1 b1 c1... şeklinde sıralı. Resimlerin a2, b2 ve c2 .... şeklinde sıralanmasını istiyorum.

[eversut]

Hocam, eğer şunu yaparsan o pelerini her gün yıkar ütülerim: Ürün No sütununda bir ürünün kodunu girince yandaki boş (resim sütunu) hücreye belli bir klasördeki aynı kod isimli resim gelsin. Yani hücredeki ürün kodunu belli bir klasörde arayarak resmi yandaki boş hücreye getirsin.

[kozmix]

Peki resmi hücreye sığdırma değilde hücreyi resmin boyutuna göre ayarlama diye bir yol var mı

[clgngurcuege]

Hata veriyor olmuyor Acil yardım edermisiniz

[peker]

Hocam teşekkürler kod için ben aynen anlattığınız gibi uyguladım ama çoğu resim A sütununa değilde farklı sütunlara eklendi ve bazılarının boyutlarıda farklı nedeni ne olabilir

[merOmurO-]

Abi Sheets("Sayfa1") olarak sınırladıl aynı resimleri birden fazla sayfaya aynı şekilde yazacaksan kod da sayfa isimleri arasına hangi işareti koymalıyım? Teşekkür

[azadibrahimserdaroglu]

Şimdi yapay zeka hepsini yapacak galiba?

[gcortuk]

Hocam merhaba, resimleri ekletiyorum. Ancak klasörden silince ya da başka bilgisayarda açtığımda gözükmesi için ne yapabilirim?

[emreoktay]

Hocam emeğinize sağlık teşekkürler

Ancak eklemek istediğim fotoğrafların boyutu "6x8 cm" ve hücre içine alt ve üstten ortalamasını istiyorum.
Bu koşullarda paylaşmış olduğunuz kod üzerinde denediğim tüm yöntemlerde hata alıyorum.
Aşağıdaki kısımda hangi düzeltmeleri yapmam lazım acaba?

With resim
resimSol = ws.Range("A" & satir).Left
resimUST = ws.Range("A" & satir).Top
resimGenislik = ws.Range("A" & satir).Width
resimYukseklik = ws.Range("A" & satir).Height

.Left = resimSol
.Top = resimUST
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Width = resimGenislik
.ShapeRange.Height = resimYukseklik
End With

[oguzhan]

Hocam sizden bir isteğim olacak bu yapmış olduğunuz format işimi görecek ama resim dosyasının adını sayısal veri olarak düşünün a1 hücresine resim gelecek ama ben b2 hücresine 1 yazdığım zaman 1.png veya 1.jpg resimini getirecek ve bunu ben en az a1den a25 e kadar yapmak istiyorum a25 dahil bu konuda yardımcı olma şansınız varmıdır yararlı video için teşekkkür ederim.

[sinanyldrm]

Güzel çalışma peki dosya yolları veya linkleri olan resimleri hücleri nasıl ekleriz. Söyleki A stününda linkler var B stününa bu linklerin küçük resimlerini eklemek istiyoruz.

[anlcanuzunoglu]

Hocam selamlar, bilgiler için teşekkürler fakat çözemediğim bir sorun mevcut. sorun şu şekilde eklemek istediğim fotoğraf sayısı +300 gibi bir rakam. Fotoğraflar başarılı bir şekilde hücrelere ekleniyor. Fakat ilk 20 resimden sonra resimler hücrelerden alttaki hücrelere taşıyor. Aslında şöyle ilk fotoğraf sizeları 6.32 x 2, 45 diyelim ama bir alttaki görsel 6.33 x 2.45 oluyor ve bu şekilde 100. görsel 6.79 x 2.45 olduğundan alttaki hücreye taşıyor. Sizce sebebi ve çözümü nedir acaba ?

[ERTENCELIKTENSENBOBINAJ]

HOCAM ELİNİZE SAĞLIK BEN YAPTIM OLDU WHATSAPTAN FİYATLİSTESİ OLARAK YAPIP YOLLARKEN FOTOLAR GİTMİYOR SORUN NE OLABİLİR

[saidsglm]

Hocam merhabalar, resimin yukseklik olcusunu deger vererek degistirmek mumkun mudur?

[muratyasar]

Ellerinize sağlık, benim ihtiyacım mesala A'yı hücreye yazınca dosyadan a'nın resmi yan hücreye gelsin.

[fuatkarataban]

Mustafa hocam excel sayfasına paint atamak istiyorum. 2008 dosyalarımda vardı ama kayboldu. 2016 plus kullanıyorum. Nasıl yapabilirim ? Paint ekleme amacım daha iyi çizim yapabilmek...

[saiddos]

Yemin ediyorum tam aradığım bir video ve yaptım oldu. fazladan kullanacağım zamanı bana verdiğin için teşekkür ederim

[tribungunlukleri]

Merhaba bir sorum olacaktı. Excele 365 versiyonu ile sırala formülü gelmiştir. Ben 365 kullanmıyorum. Formül yazarak sıralama işlemini nasıl yapabiliriz?