UserForm Üzerinde Gif Oynatma

Bu dosya, hareketli GIF resimlerinin bir UserForm üzerinde gösterilmesini sağlayan makrolu bir örnektir. Çalışma kitabının bulunduğu klasördeki GIF dosyaları taranır ve form üzerinden sırayla izlenir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: Formu açan düğmenin bulunduğu sayfadır; formül içermez.
• UserForm1: GIF dosyasının gösterildiği WebBrowser1 denetimini, Label1 etiketini ve cmdBack ile cmdNext düğmelerini barındıran formdur.
• Module1: Formu açan makroyu içeren modüldür.

Makrolar​

• Button2_Click: Sayfadaki düğmeye tıklandığında UserForm1 formunu açar.
• UserForm_Initialize: Form açılırken çalışma kitabının bulunduğu klasördeki tüm .gif uzantılı dosyaları Dir fonksiyonuyla bulur ve dosya adlarını bir diziye aktarır.
• ShowGif: Dizideki sıra numarasını bir artırır ya da azaltır, ilgili GIF dosyasını WebBrowser1 denetiminde Navigate2 yöntemiyle açar ve Label1 etiketine "Showing 1 of N" biçiminde sıra bilgisini yazar. Liste sonunda ileri, başta geri gidilmez; sıra numarası sınırda kalır.
• cmdNext_Click ve cmdBack_Click: Sırasıyla sonraki ve önceki GIF dosyasını göstermek için ShowGif yordamını çağırır.

Kodda dosya silme ya da dışarıya bağlantı kuran bir işlem bulunmaz; yalnızca çalışma kitabının klasöründeki GIF dosyaları okunur.

Nasıl kullanılır​

1. Zip dosyasından çıkan userform_gif_goster.xlsm dosyasını açın ve makroları etkinleştirin.
2. Göstermek istediğiniz .gif dosyalarını çalışma kitabıyla aynı klasöre kopyalayın.
3. Sheet1 sayfasındaki düğmeye tıklayarak formu açın.
4. Formdaki ileri ve geri düğmeleriyle GIF dosyaları arasında geçiş yapın; etiketten kaçıncı dosyada olduğunuzu izleyin.