Merhaba,
bu dediğiniz ancak ole nesnesi ile gerçekleşebilir yani resmi programımız içindeki ole olarak belirlediğimiz bir alana seçip daim orada tutmak ve istediğimizde görüntülenmesini sağlamak; ancak gif animasyonunu oleden seçmek gibi bir activex geliştirilmedi veya varsa sanırım ücretli olur. ben türlü şekillerde denediysemde başaramadım. bu nedenle göndermiş olduğum activex denetimde sadece adreslerden seçim var. ancak bir kolay yolunu dialog penceresi ile yapabiliriz.
formumuza bir list List box koyuyoruz. birde komut düğmesi,
list box ismi: FileList
Satır kaynak türü : Değer Listesi (list box özelliklerinden, veri sekmesinde)

komut düğmesinin tıklandığında olayına aşağıdaki kodu yapıştırıyoruz; (kodların detayı ile ilgili açıklamaları yanına yazıyorum. aynen kodlama bölümüne yapıştırabilirsizin, bu arada dialog penceresi örneğini de vermiş oluyoruz. aslında ayrı bir konu olarak verebilirdik. ilgili örneği ilişikte..)
Saygılarımla,



Private Sub Komut1_Click()

'Referanslardan Microsoft Office 10.0 Object Library. seçmeniz gerekiyor

Dim fDialog As Office.FileDialog
Dim varFile As Variant

'burda list box kutusun boşaltır temizler.
Me.filelist.RowSource = ""

'burada dialog penceremizi açar
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog

.AllowMultiSelect = True 'burada toplu seçim olayına izin veriyoruz. yani seçimi toplu yapabilecez.


.Title = "Lütfen dosya veya doslayarı seçiniz." 'burada dialog penceresinde yazmış olduğumuz not görünür.

.Filters.Clear 'standart tüm filtereleri kaldırır. bizim belirleyeceğimizi eklemek için.
.Filters.Add "Gif Animasyonu", "*.Gif"

.Filters.Add "All Files", "*.*"


If .Show = True Then 'eğer başarılı devam ederse

For Each varFile In .SelectedItems 'seçili dosyaları
Me.filelist.AddItem varFile 'filelist adındaki listbox'a ekle
Next
Else
MsgBox "İşlemi İptal Ettiniz." 'başarısız ise büyük ihtimalle kendi çıkmış olacağından kafadan bir iptal mesajı verdiriyoruz.
End If
End With

End Sub