Animasyon örnekleri - Açılıp Daralan Yazı

Bu dosya, Excel sayfasındaki bir WordArt yazısının harf aralığını (Tracking) makro ile kademeli olarak açıp tekrar daraltan basit bir animasyon örneğidir. Yazı büyüyüp küçülmez; harfler arasındaki boşluk genişler ve eski haline döner.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Animasyonun uygulandığı WordArt 1 adlı yazı nesnesini barındırır. Sayfada formül, tablo veya grafik yoktur.
• 1Modülü: Animasyon1 adlı makroyu içeren VBA modülüdür.

Makrolar​

Animasyon1 makrosu şu adımlarla çalışır:

1. Sayfadaki WordArt 1 nesnesini seçer ve harf aralığı değerini 1 olarak başlatır.
2. 20 adımlık bir döngüyle her adımda aralık değerini 0,1 artırır; harfler birbirinden uzaklaşır.
3. Ardından 20 adımlık ikinci bir döngüyle aynı değeri 0,1'er azaltır; yazı başlangıçtaki dar görünümüne döner.
4. Her adımda DoEvents kullanıldığından ekran güncellenir ve hareket akıcı görünür.
5. İşlem bitince A1 hücresini seçerek nesne seçimini kaldırır.

Makro yalnızca sayfadaki nesnenin biçimini değiştirir; dosya silme veya dış bağlantı gibi bir işlem içermez.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında İçeriği Etkinleştir seçeneğini kullanın.
2. Alt+F8 tuşlarıyla makro listesini açın, Animasyon1 makrosunu seçip Çalıştır düğmesine basın.
3. Animasyonu tekrar izlemek için makroyu yeniden çalıştırın.
4. Kendi metninizi kullanmak için WordArt nesnesinin yazısını değiştirin; nesnenin adı WordArt 1 olarak kalmalıdır, aksi halde makro nesneyi bulamaz.
5. Animasyonun süresini ve genişleme miktarını değiştirmek için VBA düzenleyicisinde (Alt+F11) döngü sayısı ve 0,1 artış değeri ayarlanabilir.