Animasyon Örnekleri - Piston ve Tekerlek

Bu dosya, Excel sayfası üzerindeki şekillerin VBA makrolarıyla nasıl hareket ettirilip döndürüleceğini gösteren bir animasyon örneğidir. Sayfada "Piston" ve "Tekerlek" adlı iki şekil bulunur; makrolar bu şekillerin konumunu ve dönme açısını adım adım değiştirir.

Dosyanın içeriği​

• Sayfa1: A1:I21 aralığında çalışma alanı, Piston ve Tekerlek adlı şekiller ve animasyonu başlatan düğme.
• Dosyada formül, grafik, tablo veya özet tablo yoktur; tüm hareket makro koduyla sağlanır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dış bağlantı gibi zararlı bir işlem yoktur; makrolar yalnızca etkin sayfadaki şekilleri hareket ettirir. Makrolar 1Modülü içinde yer alır.

• Animasyon12: Önce Piston sağa doğru 45 adım ilerler. Ardından 180 adım boyunca Tekerlek sağa kayarken kendi etrafında döner ve Piston ters yönde geri çekilir. Sonraki aşamalarda Tekerlek 100 adım yukarı çıkar, 180 adım sola gider ve 100 adım aşağı iner; her adımda dönmeye devam eder. Animasyon bittiğinde A1 hücresi seçilir.
• Düğme11_Tıklat: Yalnızca Piston'u 45 adım sağa, ardından 45 adım sola hareket ettirir. Sayfadaki düğmeye bağlıdır.

Her adımda DoEvents kullanıldığı için hareket ekranda akıcı biçimde izlenir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak Piston hareketini izleyin.
3. Tam animasyon için Geliştirici sekmesinden Makrolar penceresini açın ve Animasyon12 makrosunu çalıştırın.
4. Kendi çizimlerinizde kullanmak için şekillere "Piston" ve "Tekerlek" adlarını verin veya koddaki adları ve adım değerlerini değiştirin.