Animasyon Örnekleri - Hedef Vurma

Bu dosya, Excel çalışma sayfası üzerindeki şekillerin makro ile nasıl hareket ettirilebileceğini gösteren bir animasyon örneğidir. Sayfadaki ok adlı şekil hedefe doğru ilerler, yay adlı şekil daralır ve sonunda hücrede bir mesaj görüntülenir.

Dosyanın içeriği​

• Sayfa1: A1:O26 aralığında hazırlanmış tek çalışma sayfasıdır. Üzerinde ok ve yay adlı şekiller ile mesajın yazıldığı H12 hücresi bulunur.
• Sayfada formül, tablo, grafik veya veri doğrulama yoktur; örnek tamamen makro koduyla çalışır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod 1Modülü içindeki Animasyon17 makrosundan oluşur ve sırasıyla şunları yapar:

1. Ok şeklinin sol konumunu 20 noktadan başlatır; 86 adımda her seferinde 5 nokta kaydırarak oku sağa, hedefe doğru hareket ettirir.
2. Yay şeklinin genişliğini 10 değerinden başlayarak 10 adımda 0,1 azaltır; yay böylece gerilimini bırakmış gibi daralır.
3. H12 hücresine 250 kez "YAŞASIN HEDEFİ VURDUM" yazar. Bu döngü mesajın ekranda bir süre görünmesini sağlar.
4. Yayın genişliğini 40 değerine, okun konumunu 20 değerine geri alır, H12 hücresine "HA BİSMİLLAH" yazar ve imleci A1 hücresine getirir. Böylece animasyon yeniden çalıştırılabilir durumda kalır.

Kodda dosya silme, dış bağlantı veya sistem ayarlarını değiştiren bir işlem yoktur. Makro yalnızca sayfadaki iki şekli ve H12 hücresini değiştirir. Animasyon adımlarında DoEvents kullanıldığı için hareket ekranda adım adım izlenir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın ve Animasyon17 makrosunu seçip çalıştırın.
3. Ok hedefe doğru ilerlerken yayın daraldığını ve H12 hücresindeki mesajın değiştiğini izleyin.
4. Kendi çalışmanızda aynı yöntemi kullanmak için Alt+F11 ile kod penceresini açın ve şekil adlarını, adım sayılarını ve hücre adresini ihtiyacınıza göre değiştirin.