Animasyon Örnekleri - Hareketli Silindir

Bu dosya, Excel sayfasındaki bir şeklin VBA makrosuyla nasıl hareket ettirilebileceğini gösteren bir animasyon örneğidir. Sayfa üzerindeki "oval 1" adlı şekil, 3B döndürme değerleri adım adım değiştirilerek silindir gibi hareket eder.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Animasyonun uygulandığı "oval 1" adlı şekli içerir. Sayfada hücre verisi ve formül bulunmaz.
• 1Modülü: 42 satırlık modülde Animasyon9 makrosu yer alır.

Makrolar​

• Animasyon9: Önce "oval 1" şeklini seçer. Ardından DoEvents kullanılan döngülerle şeklin 3B döndürme değerini birer derece değiştirir. Hareket iki aşamadan oluşur:
• Y ekseni: 90 adım bir yönde, 180 adım ters yönde, 90 adım yeniden ilk yönde döndürülür (RotationY).
• X ekseni: Aynı 90 - 180 - 90 adımlık düzen RotationX değeri üzerinden uygulanır.
• İşlem bittiğinde A1 hücresi seçilir.

Makro yalnızca şeklin dönüş açısını değiştirir; dosya silme, dışarıya 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. Geliştirici sekmesinden Makrolar penceresini açın (Alt+F8).
3. Animasyon9 makrosunu seçip Çalıştır düğmesine basın.
4. Animasyonu kendi çalışmanızda kullanmak için şeklin adını makrodaki "oval 1" ile aynı tutun veya kodda şekil adını kendi şeklinize göre değiştirin.