Konu üzerinde biraz çalışmam gerekiyor. Örnekleri biraz incelemem gerekiyor. Örneklerden hareketle belki istediğim uygulamayı gerçekleştirebilirim. İlginize teşekkür ederim. Tamamlandığında sizinle paylaşırım. Belki sizlerde eksikleri tamamlayıp, bana yardımcı olabilirsiniz.

Klasorde ki secilen dosyalari Ek sutununa almak ve masaustunde ki klasore cikarma yontemini,
  KlasorDosEkleme.rar (Boyut: 26,73 KB / İndirilme: 103) ek'te ki dosya incelenebilir.
Birkac resim dosyasi ile deneme sonu VT buyutu oldukca artti. Dosya yerini belirterek, hyperlink yontemi daha uygun gibi geldi.

Sezgin Bey mrb;
görüşmeyeli uygulamamla ilgili epey ilerleme oldu. "Çok resimli stok kaydı" isimli sayfada aradığımı buldum. O konuyu excel ve Word dosyalarınıda açabilecek şekilde kendime güncelledim. Fakat bir yerde takıldım.

Application.FollowHyperlink trz, , True, True.... ifadesi ile

word ve excel uzantılı dosyaları açılırken, "Dosyalara köprü ile bağlanmak bilgisayarınıza zarar verebilir, yine de bağlanmak istiyor musunuz" gibi uyarı mesajı alıyorum. Bu konuda çözüm bulunabilir mi? Uyarıyı almak istemiyorum. Direkt dosyayı açsın istiyorum.

Sn hoopmars;
Call Shell("explorer " & me.Klasor & "\" & me.DosyaAdi, vbNormalFocus)
kullanabilirsiniz.

Sn sezgin mrb.

1-Ekle gönderilen basit uygulamada, listenin dbclik olayında "Call Shell..." deyimini çözebilir misiniz?
2- dosya/Calismalar klasörü içinde "ÇalışmaNo" adıyla klasör oluşturup, ekleyeceğim dosyaların yeni oluşturduğum bu klasörün içine yerleşmesini istiyorum.
3-Açıklama girmeden, dosyanın kendi adıyla kopyalanması mümkün mü?

bu konularda epey uğraştım. Sonuç alamadım. Yardımınızı bekliyorum.

Sn Sezgin merhaba; mesajıma gösterdiğiniz ilgi için teşekkürederim. Yalnız sorumun cevabını alamadım. Aşağıdaki kodlar sn. taruzun "resim ekleme hakkında herşey" konu başlığından alınmıştır. Bu kodları uyguladım, çalıştırdım. Fakat bu resim seçerken, doğrudan "Belgelerim" klasöründeki resimleri seçtiriyor. Bunu değiştirebilir miyiz. Örneğin, programımla aynı dizinde yer alan "\dosya\"&"\Çalışmalar\"&"\"& Me.ÇalışmaNo &"\" gibi. bu klasörde yer alan resimleri göstermesini isityorum. Aksi takdirde istediğim resimlere ulaşmak çok zor oluyor. Forumda okuduğum kadarıyla çoklu resim seçimi yapamıyoruz. Buda olmayınca her seferinde klasöre gitmek çok zor oluyor. Birde;bir önceki mesajımda 3 sorum daha vardı. Onlar içinde yardımcı olabirmisiniz? Teşekkürler. Saygılarımla;

Dim gzt As FileDialog
Dim DosyaAdi As String
Dim SeciliNesne As Variant
Set trz = Application.FileDialog(msoFileDialogFilePicker)
With trz
.AllowMultiSelect = False
.ButtonName = "Resim Seç"
.Filters.Add "Resimler", _
"*.gif; *.jpg; *.jpeg; *.bmp; *.png"
.FilterIndex = 0
.InitialFileName = Environ("UserProfile") & "\My Documents\"
.InitialView = msoFileDialogViewThumbnail
.Title = "Resim Seç..."
If .Show = True Then
For Each SeciliNesne In .SelectedItems
DosyaAdi = SeciliNesne
Next SeciliNesne
Me.resim = DosyaAdi
Me.cerceve.Picture = DosyaAdi
End If
End With