Label Nesnesine Kayan Yazı Ekleme

26 Aralık 2020 27 Aralık 2020 1449

Label Nesnesine Kayan Yazı Ekleme isimli kod ile, farklı biçimlerde kayan yazı efekti ekleme işleminin nasıl yapılacağını görebilirsiniz.

Private Sub UserForm_Activate()
Dim i As Integer
Label1.Top = 0
Label1.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label1.Left = Label1.Left + 0.1
    DoEvents
Next i
Label1.Top = 0
Label1.Left = 280
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label1.Left = Label1.Left - 0.1
    DoEvents
Next i
Label1.Top = 0
Label1.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label1.Left = Label1.Left + 0.1
    DoEvents
Next i
Label1.Top = 0
Label1.Left = 275
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label1.Left = Label1.Left - 0.1
    DoEvents
Next i
Label1.Top = 0
Label1.Left = 0
For i = 10 To (UserForm1.Width - Label1.Width) * 5
    Label1.Left = Label1.Left + 0.1
    DoEvents
Next i
Label2.Top = 20
Label2.Left = 280
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label2.Left = Label2.Left - 0.1
    DoEvents
Next i
Label2.Top = 20
Label2.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label2.Left = Label2.Left + 0.1
    DoEvents
Next i

Label2.Top = 20
Label2.Left = 275
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label2.Left = Label2.Left - 0.1
    DoEvents
Next i

Label2.Top = 20
Label2.Left = 5
For i = 10 To (UserForm1.Width - Label1.Width) * 10
    Label2.Left = Label2.Left + 0.1
    DoEvents
Next i

Label2.Top = 20
Label2.Left = 270
For i = 10 To (UserForm1.Width - Label1.Width) * 4.5
    Label2.Left = Label2.Left - 0.1
    DoEvents
Next i
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodların çalışması için bir UserForm ve iki Label nesnesine ihtiyacınız bulunmaktadır.

50 Farklı Hazır Makro (VBA) Kodu
Excel Alarm Kurma
Excel Hücrelerini Çözme
C Klasörüne Sanal Dizin Oluşturma
Şeffaf UserForm Oluşturma Kodu
Çalışma Kitabını E-Posta Ekine Ekleme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
TextBox Nesnelerinin Arasında Boşluk Bırakma
UserForm Kapatma Kodu
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Hücre Aralığını Görüntüye Dönüştürme
Hatalı Hücreleri Renklendirme
Başka Dosyada Şifreli Userform Oluşturmak
Makrolar ile Dosyaları Kopyalama
Verileri Birden Çok Sütuna Göre Sıralama
Makro Etkinletirilmezse Sayfalar Gizlenir
Tüm Çalışma Sayfalarını Gösterme
Bir Aralığa Alfabenin Harflerini Ekleme
Yanıp Sönme Efekti Verme Kodu
Sayılara Yeni Bir Sayı Ekleme
Son Dolu Satırı Başka Sayfaya Kopyala
R1C1 Referans Stilini Etkinleştirme
Hücrenin Arka Plan Rengini Değiştirme
Bilgisayar Bilgilerini Özetleme
Birden Çok Çalışma Sayfası Ekleme
Excel Hücresine Gitme Makrosu
Negatif Sayıları Vurgulama
UserForm Açılırken Efekt Ekleme
Aktif Hücrenin Sütun Numarasını Bulma
Excel Dosya Arama Yapma Makrosu
Makrolar ile Klasördeki Dosyayı Taşıma
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Hücredeki Değere Göre Yeni Sayfa Ekleme
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Her Kapatma İşleminde Otomatik Olarak Kaydetme
İçindekiler Tablosu Oluşturma
Excel Menüsüne Ekleme Yapma Kodu
A1 Referans Stilini Etkinleştirme
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Tüm Boş Çalışma Sayfalarını Silme
Sayfada Alan Seçme ve Listeleme
Alarmlı Saat Ekleme Kodu
Makrolar ile Txt Dosya Silme
Özel Sayfaları Yazdırma
Kullanıcı Adınızı Bulma
Excel Üzerinden Klasör Açma Kodu
Makrolar ile Klasör Kopyalama
UserForm Üzerine CommandButton Ekleme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...