Label Kayan Yazı

Bu dosya, bir UserForm üzerindeki Label nesnesinde yazının harf harf belirdiği kayan yazı efektinin VBA ile nasıl yapıldığını gösterir. Form açıldığında metinler sürekli döngü halinde Label üzerine yazılır.

Önemli: Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: A1:E11 aralığında yer alan karşılama sayfasıdır; formül içermez.
• UserForm1: Kayan yazının görüntülendiği form. Üzerinde Label_creeping_line (kayan yazı) ve Label_hyperlink adlı Label nesneleri bulunur.
• Module1: Formu açan form adlı makroyu içerir.

Makrolar​

• form: UserForm1 formunu açar. Makro, Alt+F8 ile çalıştırılır.
• UserForm_Activate: Form etkinleşince StartAd yordamını başlatır.
• StartAd: Üç metni sırayla gösteren sonsuz bir döngü kurar. Form kapandığında veya gizlendiğinde döngüden çıkar.
• ShowText: Metni her adımda bir harf artırarak Label_creeping_line üzerine yazar. Harfler arası bekleme süresi ve metin bittikten sonraki bekleme süresi parametreyle belirlenir. Bekleme sırasında DoEvents ile form donmaz. Süre sonunda Label temizlenir.
• UserForm_QueryClose ve UserForm_Deactivate: Form kapatılırken formu gizler ve bellekten kaldırır; böylece yazı döngüsü durur.
• Label_creeping_line_Click ve Label_hyperlink_Click: Tıklandığında FollowHyperlink ile tarayıcıda bir web adresi açar. Dosya bu nedenle dış bağlantı içerir.
• Label_hyperlink_MouseMove: Fare Label_hyperlink üzerine geldiğinde FormatHyperlink çağrısını yapar.

Kodda dosya silme veya veri gönderme işlemi yoktur; tek dış etkileşim, tıklamayla açılan web bağlantısıdır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile form makrosunu çalıştırın veya VBA düzenleyicisinde UserForm1 formunu çalıştırın.
3. Form açılınca metinler Label üzerinde harf harf yazılır ve döngü halinde tekrarlanır.
4. Kendi metninizi kullanmak için VBA düzenleyicisinde StartAd içindeki ShowText satırlarındaki metni değiştirin; ilk sayı bekleme süresini, ikinci sayı harfler arası süreyi saniye olarak belirler.
5. Formu kapattığınızda yazı döngüsü sona erer.

Label yüksekliği sabitse, satır sayısı Label yüksekliğini aştığında devam eden yazılar görünmez; metinler bu nedenle kısa tutulmalıdır.