Label Nesnesine Kayan Yazı Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Faydalanılması temennisiyle
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Hazır Kod
VBA:
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 SubAçıklama
Kodların çalışması için bir UserForm ve iki Label nesnesine ihtiyacınız bulunmaktadır.Faydalanılması temennisiyle
