Userform ekrana Powerpoint Slaytı gibi kayarak çıkabilir mi?

Katılım
10 Mayıs 2005
Mesajlar
72
İyi akşamlar!

Userfom ekrana Powerpoint Slaytı gibi soldan, sağdan, alttan veya üstten kayarak ekrana çıkabilir mi?

Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Saygılarımla,
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bende konuyla ilgili bir örnek hazırladım bunuda inceleyebilirsiniz.
 
Katılım
10 Mayıs 2005
Mesajlar
72
Sayın leventm!

Öncelikle özür dilerim mesajınıza geç cevap verdiğim için. Özel sebeplerden dolayı ancak şimdi cevap verebiliyorum.

Ek'te gönderdiğiniz Userform tam benim yapmak istediğim olaydı. Ancak nedendir bilinmez bazen Userform tutukluk yapıyor ve önce duraksıyor ve sonra hareket ediyor. Bazen de muntazaman ortaya doğru hareket ediyor.

Sayın leventm! Userform her zaman ekranın ortasına mı çıkar? Ekranın altına yaslı olarak nasıl çıkarabilirim? Bu konuda da bana yardımcı olursanız çok sevinirim.

Saygılarımla,
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ancak nedendir bilinmez bazen Userform tutukluk yapıyor ve önce duraksıyor ve sonra hareket ediyor. Bazen de muntazaman ortaya doğru hareket ediyor.
Her ne kadar donanım hakkında çok fazla bilgi sahibi değilsemde şu yorumu yapabilirim. Bu muhtemelen o anda bilgisayarınızda ne kadar aktif program olduğu ile alakalı bir durum. Aktif olan program sayınız ne kadar az ise dosya o kadar hızlı çalışacaktır. (Bu durumu kod içindeki timer oluşturuyor.)

Userform her zaman ekranın ortasına mı çıkar? Ekranın altına yaslı olarak nasıl çıkarabilirim?
Bu elbette ayarlanabilir bir durumdur, bunun için kod içindeki UserForm1.Top = 100 satırndaki değeri değiştirmeniz yeterlidir. Bu değeri örneğin 200 yaparak deneyin. Birde ekrana geliş hızını değiştirmek isterseniz; c = c + 0.01 satırındaki sabiti değiştirebilirsiniz. Örneğin c = c + 0.1 şeklinde deneyin.
 
Katılım
10 Mayıs 2005
Mesajlar
72
Sağolun Sayın Leventm!

UserForm'u ekranın altından yukarı doğru kaydırarak çıkarmak mümkün? Aşağıdaki kodda nasıl bir değişiklik yapmam gerekir?

Saygılarımla,

Private Sub UserForm_Activate()
UserForm1.StartUpPosition = 0
UserForm1.Top = 550
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.5
UserForm1.Left = -300 + c
If UserForm1.Left = 10 Then Exit Sub
Loop While finish - Start <= 1000
End Sub
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki şekilde deneyin.

[vb:1:3ec07cb75f]Private Sub UserForm_Activate()
UserForm1.StartUpPosition = 0
UserForm1.Left = 200
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.01
UserForm1.Top = 300 - c
If UserForm1.Top = 100 Then Exit Sub
Loop While finish - Start <= 1000
End Sub
[/vb:1:3ec07cb75f]
 
Katılım
10 Mayıs 2005
Mesajlar
72
Sayın leventm!

Yukarıdaki kodu, müstakil olarak değil de başka bir timer kodunun olduğu makronun olduğu bir excel dosyasının içinde çalıştırmak istediğimde yukarıdaki start kodunda hata veriyor.

Acaba bir çakışma olması sebebiyle mi hata veriyor. Yukarıdaki Start ve Timer yerine başka bir kod yazabilir miyiz?

Saygılarımla,
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,893
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sn rdeniro, Bırak rahat rahat çıksın userform kaydırıyorsun kodlarda kayıyor.
Şaka bir yana Sn rdeniro, sizin sorunuzla birlikte Levent Hocam'dan, yeni birşey daha öğrendim. :hey:

İkinizede Teşekkür ederim
 
Katılım
10 Mayıs 2005
Mesajlar
72
Ben de teşekkür ederim Sayın fructose.

Daha Levent Hocom'dan öğreneceğimiz çok şey olduğunu tahmin ediyorum.
 
Katılım
18 Aralık 2005
Mesajlar
464
Excel Vers. ve Dili
ofis2003
kayan formdan sonra labelde kayan yazı kodu çalıştırmak istiyorum ama birbirlerini engelliyorlar ne yapmalıyım.ilk önce kayan formu çalıştırıyorum amaform hareketi durduktan sonra kayan yazı çalışmıyor iki kod arasına birşeymi yazmalıyım?
 
X

xxrt

Misafir
sonra labelde kayan yazı kodu çalıştırmak istiyorum ama birbirlerini engelliyorlar ne yapmalıyım
Eğer label'de kayan yazı kodlarını Sayın Haluk'un verdiği örnek'ten aldıysan,
Levent'in kodlarını Haluk'un örneğinde bulunan UserForm'un Activate kısmına yazacaksın..

Aşağıdaki örnek Sayın Haluk'un
Label'de kayan yazı Linkindeki örneği ile

Sayın Leventm'nin yukarıdaki kodları birleştirilerek hazırlandı.
 
Üst