Animasyon Örnekleri - Renk Değiştirme

Bu dosya, Excel'de bir WordArt nesnesinin renginin ve biçiminin makro ile nasıl değiştirilebileceğini gösteren bir animasyon örneğidir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: E16 hücresinde "Animasyon İçin Tıklayın" yazısı bulunur. Sayfada animasyonun uygulandığı "WordArt 1" adlı bir WordArt nesnesi yer alır.
• 1Modülü: Animasyon4 adlı makroyu içeren VBA modülüdür (49 satır).

Dosyada formül bulunmaz; tüm işlem makro ile yapılır.

Makrolar​

• Animasyon4: Çalışmaya başladığında E16 hücresine "ANİMASYON BAŞLADI" yazar ve "WordArt 1" nesnesini seçer. Ardından her biri 20 tekrarlı dört döngü çalıştırır. Birinci ve üçüncü döngüde yazı biçimi msoTextEffectShapeCurveDown olur, dolgu rengi şema rengi 2, çizgi rengi şema rengi 12 olarak atanır. İkinci ve dördüncü döngüde biçim msoTextEffectShapeCurveUp olur, dolgu rengi şema rengi 12, çizgi rengi şema rengi 13 yapılır. Böylece yazı aşağı ve yukarı kıvrılırken renkleri değişir.
• Döngülerden sonra 1000 tekrarlı kısa bir döngüde E16 hücresine "ANİMASYON BİTTİ" yazılır, sonra hücre eski metnine ("Animasyon İçin Tıklayın") döner ve imleç A1 hücresine getirilir.

Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem bulunmaz; makro yalnızca bu sayfadaki hücreyi ve WordArt nesnesini değiştirir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerindeki WordArt nesnesini ve E16 hücresindeki "Animasyon İçin Tıklayın" yazısını görün.
3. Animasyonu başlatmak için Animasyon4 makrosunu çalıştırın (Alt+F8 ile makro listesinden seçin veya makro atanmış bir nesneye tıklayın).
4. Animasyon sırasında E16 hücresindeki durum yazısını ve WordArt nesnesinin renk ile biçim değişimini izleyin.
5. Döngü sayısını veya renk numaralarını değiştirmek için VBA düzenleyicisinde 1Modülü içindeki m değişkenini ve SchemeColor değerlerini düzenleyin.