Animasyon Örnekleri - Makaralar

Bu dosya, Excel çalışma sayfasındaki çizim nesnelerinin VBA makrolarıyla nasıl hareket ettirilebileceğini gösteren bir animasyon örneğidir. Sayfada yer alan makara şekilleri, iki makro ile yukarı, aşağı ve dönme yönünde hareket ettirilir.
Önemli: Dosya makro içerir (.xlsm). Açarken makroları etkinleştirmeniz gerekir; makrolar etkinleştirilmezse animasyon çalışmaz.

Dosyanın içeriği​

• Sayfa1: C1:G18 aralığında yer alan tek sayfadır. Üzerinde makaraları oluşturan şekiller bulunur: kutle1, kutle2, Group 72, Oval 2, Oval 3, Oval 4, Çizgi 73 ve Çizgi 74.
• Sayfada formül, grafik, tablo veya pivot tablo yoktur; hareket tamamen makro koduyla sağlanır.

Makrolar​

Kodlar 1Modülü içindedir ve iki makro bulunur.

• Animasyon20: İki aşamalı çalışır. İlk aşamada 100 adımlık bir döngüyle kutle1 ve kutle2 aşağı iner, Group 72, Oval 4 ile Çizgi 73 ve Çizgi 74 yukarı çıkar. Aynı sırada Oval 2 ve Oval 3 zıt yönlerde döner. İkinci aşamada aynı döngü ters yönde işletilerek tüm şekiller başlangıç konumuna döner. Her adımda DoEvents kullanıldığı için hareket ekranda akıcı izlenir. Makro bittiğinde A1 hücresi seçilir.
• Donme: 720 adım boyunca Oval 2 ve Oval 3 şekillerini zıt yönlerde 30 derece artırımlarla döndürür. Sonunda A1 hücresi seçilir.

Kodda dosya silme, dış bağlantı gibi zararlı bir işlem yoktur; makrolar yalnızca etkin sayfadaki şekilleri adlarıyla seçerek konum ve açılarını değiştirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın.
3. Animasyon20 veya Donme makrosunu seçip Çalıştır düğmesine basın.
4. Kodu incelemek için Alt+F11 ile VBA düzenleyicisini açıp 1Modülü modülüne bakın.
5. Makrolar şekilleri adlarıyla çağırdığı için şekillerin adı değiştirilir veya şekil silinirse makro hata verir.