Animasyon Örnekleri - Banner Yazı Stili

Bu dosya, Excel sayfasındaki bir WordArt yazısına VBA ile animasyon uygulamayı gösteren örnek çalışmadır. Yazının biçimi makro çalıştığında sırayla değişir ve banner görünümlü bir hareket etkisi oluşur.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Animasyonu yapılan WordArt 2 adlı yazı nesnesini barındıran tek sayfadır. Hücrelerde veri ya da formül bulunmaz.
• 1Modülü: Animasyon3 adlı makroyu içeren VBA modülüdür.

Makrolar​

Animasyon3 makrosu, Sayfa1 üzerindeki WordArt 2 nesnesini seçer ve yazının TextEffect.PresetShape özelliğini aşağıdaki sırayla değiştirir. Her biçim, m değişkeninde tutulan 20 tekrarlık bir döngüyle uygulanır:

1. msoTextEffectShapeCurveUp (yukarı eğri)
2. msoTextEffectShapeCurveDown (aşağı eğri)
3. msoTextEffectShapeButtonCurve (düğme eğrisi)
4. msoTextEffectShapeButtonPour (düğme akış)
5. msoTextEffectShapeDeflateInflate (sönme ve şişme)
6. msoTextEffectShapeDeflateInflateDeflate (sönme, şişme, sönme)

Son adımda yazı msoTextEffectShapePlainText ile düz metin görünümüne döndürülür ve A1 hücresi seçilir. Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur; makro yalnızca WordArt nesnesinin biçimini değiştirir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın.
3. Animasyon3 makrosunu seçip Çalıştır düğmesine tıklayın.
4. Yazının biçim değiştirmesini izleyin; animasyon bittiğinde yazı düz metne döner.
5. Farklı bir yazıya uygulamak için WordArt nesnesinin metnini değiştirin. Nesnenin adı WordArt 2 olarak kalmalıdır, aksi halde makro nesneyi bulamaz.
6. Hareketi hızlandırmak ya da yavaşlatmak için Alt+F11 ile VBA düzenleyicisini açıp m değerini değiştirin.