Resimleri Klasörden Çağırma

[yrydr]

Merhaba,
Klasörden resim çağırma ile ilgili bir problemim var. Youtube'ten birisi ilgili excelin bulunduğu yerden resim çağırtıyor. Onu denedim başlarda iş görüyordu ama artık resimlerin çoğalması ve kategorlendirmeden dolayı adres vermem gerekiyor. Örnek: H:\PUSULA\SQL\Sebo\Resimler\ altındaki klasörlere baksın ilk bulduğunu getirsin, bulamadığında Resim yok yazsın.

Siteyi de gezdim ama birebir ihtiyacımı karşılayacak bir şey bulamadım. Bu konuda destek verebilir misiniz acaba.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [b3]) Is Nothing Then Exit Sub

' Hata Kontrolü
On Error GoTo Çıkış

'Resimleri Sil
ActiveSheet.DrawingObjects.Delete

'Resim Yolunun bulunması
Dim ResimYolu As Variant
Dim Resim As Object

ResimYolu = ActiveWorkbook.Path & "\" & Range("b3") & ".jpg"

'Resimi oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

'Resmi Boyutlandır

With Range("d5")
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With


Çıkış:
End Sub

 

[Merhum İdris SERDAR]

.

Bir de buraya bakın.

Resim – Excel Gurusu

.

 

[metin_0606]

Merhaba,
Klasörden resim çağırma ile ilgili bir problemim var. Youtube'ten birisi ilgili excelin bulunduğu yerden resim çağırtıyor. Onu denedim başlarda iş görüyordu ama artık resimlerin çoğalması ve kategorlendirmeden dolayı adres vermem gerekiyor. Örnek: H:\PUSULA\SQL\Sebo\Resimler\ altındaki klasörlere baksın ilk bulduğunu getirsin, bulamadığında Resim yok yazsın.

Siteyi de gezdim ama birebir ihtiyacımı karşılayacak bir şey bulamadım. Bu konuda destek verebilir misiniz acaba.

Örnek Dosya paylaşırmısınız ona göre yardımcı olalım

 

[yrydr]

Merhaba,
Zip olarak ekledim.
Burada ilgili excelin olduğu yerden resimleri çekiyor.
Ama ben bir üst klasör verip fotoları ordan bulmasını istiyorum.

İdris Üstat sizinkiler çok güzel ama ben sanırım bulamadım.

 

[metin_0606]

Merhaba,
Zip olarak ekledim.
Burada ilgili excelin olduğu yerden resimleri çekiyor.
Ama ben bir üst klasör verip fotoları ordan bulmasını istiyorum.

İdris Üstat sizinkiler çok güzel ama ben sanırım bulamadım.

Resimlerin bulunduğu klasörü kendinize göre uyarlayınız

 

[yrydr]

Metin Hocam öncelikle zaman ayırıp yaptığınız için çok teşekkürler.

Bugün denedim.

İlgili klasörü birebir hedeflediğim zaman resmi getiriyor; ama bir üst klasörü verdiğimde bulamıyor resmi.

Şunu demek istiyorum:

Klasor = "C:\Users\sebahattin\Downloads\denemem\xes\" iken bulamıyor ya da getiremiyor,
Klasor = "C:\Users\sebahattin\Downloads\denemem\xes\asd\" iken buluyor.

Benim istediğim mümkünse üst klasörden tarayıp bulabilmesi.