Dosya yolu gösterme

[bycakir]

merhabalar

ben aşağıdaki şekilde bir makro kullanlamaya çalışıyorum. makro sorunsuz çalışıyor fakat resim dosya yolu gösteremiyorum.resimler exel yuklu oldugu dizinde olursa gösteriliyor dosya yolunu nasıl gösterebilirim sanırım bu dizinde değişikilik yapmalıyım. ama nasıl
ResimYolu = ActiveWorkbook.Path & "\" & Range("D3") & ".jpg"
teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [D3]) 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("D3") & ".jpg"

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

'Resmi boyutlandır

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

çıkış:
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki şekilde yapın.

ResimYolu =  "c:\KlasorAdi\" & Range("D3") & ".jpg"

 

[excellkurdu]

InsertPictureInRange ActiveWorkbook.Path & "\" & Range("D3") & ".jpg", Range("E6")

 

[akintunca]

Selam benim de dosya yolunda joker karakter kullanmam lazım.

"c:\KlasorAdi\" & Range("D3") & "*" & ".jpg"
gibi

Ama olmuyor. Var mı bir yolu?

 

[Korhan Ayhan]

Tam olarak ne yapmak istiyorsunuz?

 

[TURKOLOG]

Merhaba vu konuda ben de bir soru sorsam.
Userforma Dosya ekleme veya dosya bulma yolunu excelin sayfa 1. A1 sütunundan alma macrosu var mı acaba