Dönen Yazı Animasyonu Yapma

Dönen Yazı Animasyonu Yapma isimli içerik, Excel'de bir metin şekli oluşturarak basit bir animasyon efekti oluşturmayı gerçekleştirmektedir.



Dosyadaki kodun temel adımları ve işlevleri şunlardır:

1. Shape Oluşturma:
   • Sheets(1).Shapes.AddTextEffect metodu ile ilk çalışma sayfasında yeni bir metin şekli (Shape) oluşturulur. Bu metin şekli "Koşul Gerçekleşti" yazısını içerir ve "Verdana" yazı tipi, 42 boyutunda olacak şekilde ayarlanır. Şekil, sayfanın (20, 20) koordinatlarına yerleştirilir.
2. Animasyon Döngüsü:
   • İlk For döngüsü, oluşturulan şeklin sola doğru hareketini ve dönüşünü (rotasyon) artıran bir şekilde gerçekleştirir. Her tekrarda, şeklin soluna (IncrementLeft) ve rotasyonuna (IncrementRotation) ekleme yapar. Bu, şeklin sağa doğru hareket ederken dönmesine neden olur.
   • İkinci For döngüsü, bu hareketi tersine çevirerek şekli başlangıç noktasına geri getirir ve ters yönde döndürür.
3. DoEvents Fonksiyonu:
   • Her tekrarda DoEvents fonksiyonu çağrılır. Bu, Excel'in arayüzünü güncellemesine ve diğer olayların işlenmesine izin verir, böylece animasyon akıcı bir şekilde gösterilir.
4. Animasyonun Sonlandırılması:
   • Application.OnTime metodu, belirlenen süre (5 saniye) sonunda Sil prosedürünü çağırır. Bu, kullanıcıya oluşturulan şekli silip silmeyeceğini sorar.
5. Şekil Silme:
   • Sil prosedürü, bir mesaj kutusu (MsgBox) aracılığıyla kullanıcıdan şeklin silinip silinmeyeceği konusunda onay ister. Kullanıcı "Evet" (6) cevabını verirse, şekil silinir ve Animasyon nesnesi Nothing olarak ayarlanır.

Kodlar, bir Excel sayfasındaki iki ayrı hücrenin birbirine eşitlenmesi halinde otomatik olarak çalışmaktadır.

Merak edenlere ya da ihtiyacı olanlara yarar sağlaması temennisiyle.