userformun başlığını çalışma kitabı başlığı yapmak

[feraset045]

arkadaşlar userformun başlığını görev çubuğunda açık olan (userformun içerdiği veya bizim istediğimiz)excel kitabının başlığı yapıp kayan başlık şekilde nasıl yaparız yani benim userformun başlığı veya herhangibir userform üzerindeki label in başlığı hem çalışma kitabının başlığı olacak hemde araç çubuğunda kayar tarzda olacak aradım tam olarak konularda aradığımı bulamadım

 

[xxcell]

Hızlı bir bakışla,

application.caption = userform1.caption

yaparsanız excel penceresinin ismini değiştirmiş oluyorsunuz. Belki işinize yarar.

Şu kayan cafcafları da DOEVENTS ile yapıyolar. Bu şekilde aratınız.


Gereksiz süsleme yerine içerik tavsiye ederim. ama şöyle bir sonsuz döngü işini görür gibi.


Private Sub UserForm_Activate()

Do While 1 < 2
DoEvents
KAYANYAZI = userform1.caption
For n = 1 To Len(KAYANYAZI)
DoEvents
Application.Caption = Mid(KAYANYAZI, n, Len(KAYANYAZI))
For xx = 1 To 5000
DoEvents
Next xx
'Application.Wait (Now() + TimeValue("0:00:01"))
Next n
Loop


End Sub