Aşağı Yukarı Mantığıyla Alternatif Oluşturma

Bu dosya, bir UserForm üzerindeki resmin dikey olarak sürekli aşağı ve yukarı hareket ettirilmesini gösteren makro örneğidir. Aşağı yukarı mantığıyla alternatif oluşturma işlemi, formdaki resmin Top özelliğinin küçük adımlarla artırılıp azaltılmasıyla sağlanır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Veri içermeyen çalışma sayfasıdır; makroyu başlatan düğme bu sayfa üzerinden çalıştırılır.
• UserForm1: İçinde bir resim (Image1) ve iki komut düğmesi (CommandButton1, CommandButton2) bulunan form.
• Module1: Formu açan kısa bir makro içerir.

Makrolar​

• Düğme1_Tıklat: Module1 içinde yer alır ve UserForm1 formunu açar. Sayfadaki düğmeye atanarak çalıştırılır.
• UserForm_Activate: Form açıldığında otomatik çalışır ve CommandButton1_Click prosedürünü başlatır.
• CommandButton1_Click: Resmin Top değerini 0,00008 birimlik adımlarla artırarak resmi aşağı kaydırır. Döngü içinde DoEvents kullanıldığı için form hareket sırasında donmaz. Değer 197 sınırına ulaşınca CommandButton2_Click çağrılır.
• CommandButton2_Click: Resmin Top değerini aynı adımla azaltarak resmi 0 konumuna kadar yukarı taşır. Ardından hareket yeniden aşağı yönde başlar ve bu şekilde sürekli devam eder.
• Image1_Click: Boş bir prosedürdür, herhangi bir işlem yapmaz.

Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayın; UserForm1 açılır ve resim hareket etmeye başlar.
3. Hareket hızını ve sınırlarını değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, UserForm1 kodundaki 0,00008 adım değerini ve 197 sınır değerini düzenleyin.
4. Resmi kendi görselinizle değiştirmek için formda Image1 nesnesinin Picture özelliğini kullanın.

Hareket sürekli döngüde olduğu için formu kapatmak üzere form penceresinin kapat düğmesi kullanılır; çalışan döngü kapatma sırasında Excel'in yanıt vermesini geciktirebilir.