label de kayan yazı

[ADEMES]

aşağıda ki kodu kullanarak kazan yazı yapabiliyorum ama girdiğim veri labelin uzunluğunu aşınca alt satıra geçiyor . bunu sürekli düz bir satır halinde olmasını nasıl sağlarım . bunun için başka bildiğiniz kod varsa paylaşırmısınız .

saygılarımla,
adem eksici

++

Private Sub userform_Activate()
Dim X As Integer
Dim current As Variant
Label1.Caption = Range("f21")
Y = Label1.Caption
Label1.Caption = ""
For X = 0 To Len(Y)
If X = 0 Then
Label1.Caption = ""
current = Timer
Do While Timer - current < 0.2
DoEvents
Loop
GoTo bitti
Else: End If
Label1.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.2
DoEvents
Loop
bitti:
Next X
Label1.Caption = ""

current = Timer
Do While Timer - current < 0.2
DoEvents
Loop
Call userform_Activate
End Sub

 

[Levent Menteşoğlu]

Label yerine webbrowser nesnesi kullanmanızı öneririm. Aşağıdaki linkte gerekli uygulamayı bulabilirsiniz.

http://www.excel.web.tr/f167/webbrowser-nesnesi-ile-userformda-saat-ve-kayan-yazy-t62309.html

 

[ADEMES]

Maalesef bunu yapamadım verdiğiniz sayfada ki dosyada hata veriyor .

 

[Levent Menteşoğlu]

Maalesef bunu yapamadım verdiğiniz sayfada ki dosyada hata veriyor .

Eğer webbrowser nesnesi yüklü ise hata vermez. Rar dosyası içindeki .xls ve .html dosyalarını herhangi bir klasöre çıkartın ondan sonra .xls uzantılı dosyayı açın.

 

[ExcelF1]

Biri "KAYAN YAZI" mı dedi ? Size 5 güzel örnek. (Sonuncusu siteden alıntıdır)

 

[ExcelF1]

..............

 

[lsagirdak]

Biri "KAYAN YAZI" mı dedi ? Size 5 güzel örnek. (Sonuncusu siteden alıntıdır)

En güzeli 5. elinize sağlık

 

[ADEMES]

hepsi için tesekkurler .

sorunum cozulmustur

 

[ExcelF1]

Rica ederiz, kolay gelsin.