Excel Animasyonları - Uçan Balon

Uçan Balon, Excel'de makro ile şekil animasyonunun nasıl yapıldığını gösteren örnek bir çalışma kitabıdır. Sayfadaki balon şekli makro çalıştırıldığında önce yukarı çıkar, ardından başlangıç konumuna iner.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Animasyonun gerçekleştiği tek sayfadır. Üzerinde Grup 5 adlı gruplanmış balon şekli bulunur. Hücrelerde veri ya da formül yoktur.
• 1Modülü: Animasyonu yürüten Animasyon8 makrosunu barındıran VBA modülüdür.

Makrolar​

• Animasyon8: Önce Grup 5 şeklini seçer. Şeklin üst konumunu 200 değerinden başlatır ve 600 adımda her seferinde 0,2 azaltır; böylece şekil sayfada yukarı çıkar. Ardından aynı 600 adımı bu kez 0,2 artırarak tekrarlar ve şekil aşağı iner. Her adımda DoEvents çağrılır, bu sayede hareket ekranda akıcı biçimde izlenir. İşlem bitince seçim A1 hücresine döner.

Makro yalnızca şeklin konumunu değiştirir; dosya silme, dış bağlantı gibi bir işlem içermez.

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.
3. Animasyon8 makrosunu seçip Çalıştır düğmesine tıklayın.
4. Balonun yukarı çıkıp tekrar aşağı indiğini izleyin.
5. Hareket aralığını değiştirmek için Alt+F11 ile VBA düzenleyicisini açın; başlangıç değeri 200, adım sayısı 600 ve adım büyüklüğü 0,2 olarak modülde tanımlıdır.

Başka bir şekle uygulamak için makrodaki Grup 5 adı, hedef şeklin adıyla değiştirilir.