Aynı Klasör İçinden Resmi Çekme Hk.

[KaraKartall99]

Merhaba,

Elimde bir excel dosyası var. Bulunduğum excele resimleri çağırma istiyorum.

Sayfa 1 içerisinde verilerim var. Sayfa 2 içerisine, Sayfa 1'deki A stünundaki verileri "veri çek" ile çektim. Aynı klasör içerisindeki resimleride veri çek hücresindekiler ile aynı isimlendirdim ve aşağıdaki kodları yazarken hata ile karşılaştım.

Private Sub Worksheet_Change(ByVal Target As Range)

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

'resim yolunu bulma


Dim ResimYolu As Variant
Dim Resim As Object


ResimYolu = ActiveWorkbook.Path & " \ " & "2.jpg"

'Resmi oluştur

Set Resim = Acitvesheet.Pictures.Insert(ResimYolu)

End Sub.

Kalın olan yerde hata verdi. Buraya ne yazmam gerekli. Resimlerim çalıştığım excel ile aynı klasör içinde ve isimlendirmeleri aynı. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Az önce benzer bir konuya yanıt verdim.

VBA Resim çekme ve düzeltme

Herkese merhaba. Excel VBA konusunda çok yeniyim. Aşağıda yazılan VBA kodlarını kendimce düzelttim. Açılır liste oluşturdum. Açılır listede ilgili metini seçtiğimde logo geliyor, açılır listesinde farklı bir metni seçtiğimde logo gelmekte fakat önceki logonun üstünde oluyor. Bir öncekini silip...

www.excel.web.tr

 

[ÖmerBey]

Merhaba,
Bu tür hata sorularda hangi hatayı verdiğini yani hata mesajını da paylaşınız.
Ben uyguladığımda kodunuz hata vermiyor, ancak yine de birkaç öneri:
ResimYolu değişkenini string olarak tanımlayabilirsiniz.
Yol yazarken \ karakterinden önceki ve sonraki boşlukları siliniz.

 

[uzmanamele]

Merhaba

Dosya formatı .jpg mi? .jpeg mi kontrol ediniz.