userform konumu için kod yardımı

[zulfuernek]

http://dosya.co/039trho4cl8x/İŞLEM_TAKİP_SON2.xlsm.html

yukarıdaki linkte dosyada userfom mevcut
mini ekran userformu için ekranın her iki yanına yaslanmış şekilde açılıyor ve sağa sola kımıldamıyor. ancak bu olayı ekranın ortasında değilde ekranın en üstünde olmasını istiyorum. koddaki numaraları değiştirdim ancak bir türlü bulamadım. bilen varsa litfen ilginebilirmi

Private Sub UserForm_Layout() 'EKRANIN ÜST HİZASINDA AÇILMASI İÇİN
Me.Move Application.Width / 2 - Me.Width / 2, Application.Height / 2 - Me.Height / 2
End Sub

dediğimde ekranın ortasında açıyor. 2 leri değiştirdim bir türlü bulamadım.

Private Sub UserForm_Layout() 'EKRANIN ÜST HİZASINDA AÇILMASI İÇİN
Me.Top=0
End Sub

değeri gibi olmalı ancak sağa sola Mouse ile oynamamalı.

 

[Haluk]

Böyle olmuyor mu?

Private Sub UserForm_Layout()
    Me.Top = 0
    Me.Left = (Application.Width - Me.Width) / 2
End Sub

.

 

[zulfuernek]

haluk hocam emeğine ağlık.
ben burda bişeyi öğrenmek istiyorum
Me.Left = (Application.Width - Me.Width) / 2
açıklaması nedir acaba? vaktiniz varsa sizi zahmete sokmayacaksam. özür dileyerek soruyorum

saygılar

 

[Haluk]

Rica ederim,

Me.Left = kodun yazıldığı userform'un sol koordinatı
Application.Width = Excel'in pencere genişliği
Me.Width = userform'un genişliği

O zaman, UserForm'u Excel'in tam ortasında olmasını istiyorsak, matematiksel olarak userform'un sol koordinatını hesaplayıp, bunu koda yazıyoruz.


.

 

[zulfuernek]

biraz karmaşık ama bir iki deneyim ve koordinat değişimliğiyle kolayca öğrenilecek bişey. sizin parantez içerisinr almanız olayı daha derli toplu yapmış.

tekrardan çok teşekkür ederim haluk hocam