Animasyon Örnekleri - Uzayan Ok

Bu dosya, Excel'de bir şeklin boyutunun makro ile nasıl animasyon haline getirilebileceğini gösteren küçük bir örnektir. Sayfa üzerindeki "Ok" adlı şeklin genişliği ve yüksekliği döngü içinde adım adım artırılır, ardından aynı şekilde azaltılır; böylece ok uzayıp kısalıyormuş gibi görünür.

Dosyanın içeriği​

• Sayfa1: A1:K17 aralığını kapsar. A1 hücresinde 400 değeri bulunur ve uzama adımı sayısını belirler. B1 hücresi animasyon sırasında adım sayacını gösterir. Sayfada animasyonu uygulanan "Ok" şekli yer alır.
• Dosyada formül, grafik, tablo veya özet tablo bulunmaz; işlemin tamamı makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dış bağlantı gibi işlemler yoktur; makro yalnızca şeklin ölçülerini ve B1 hücresini değiştirir.

• Animaston11 (1Modülü içinde): Önce "Ok" şeklini seçer. İlk döngü A1 hücresindeki değer kadar çalışır; her adımda şeklin genişliği 1, yüksekliği 0,1 birim artırılır ve B1 hücresine adım sayısı yazılır. İkinci döngü 400 adım çalışır; genişlik 1, yükseklik 0,07 birim azaltılır ve sayaç geriye doğru işler. Her adımda DoEvents kullanıldığı için değişiklikler ekranda anlık görülür. İşlem bitince A1 hücresi seçilir.

Makro 08.05.1999 tarihinde kaydedilmiştir ve Alt+F8 penceresinden çalıştırılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. İsterseniz A1 hücresindeki 400 değerini değiştirerek uzama adımı sayısını ayarlayın.
3. Alt+F8 tuşlarıyla Animaston11 makrosunu seçip Çalıştır düğmesine tıklayın.
4. Okun uzamasını ve ardından küçülmesini izleyin; B1 hücresinden adım sayısını takip edin.

A1 değeri 400'den küçük girilirse ikinci döngü 400 adım çalıştığı için şekil başlangıç ölçüsünün altına inebilir; bu nedenle örnekte A1 değerinin 400 bırakılması uygundur.