User Form Gösterimi Hk.

[petsiye]

Merhaba ,

İşyerimde İki monitörle birlikte çalışıyorum. Hazırlamış olduğum User Formların tamamı , açıldığı zaman Excelin ortasında değil , diğer monitörde açılıyor. Userformları, Excel dosyası hangi monitörde ise o monitörün tam ortasına gelecek şekilde açılmasını hangi kod ile sağlayabilirim.

Yardım ve desteğiniz için şimdiden çok Teşekkür Ederim.

 

[turist]

Private Sub UserForm_Activate()
    Me.Top = Application.Top
    Me.Left = Application.Left
    Me.Top = Application.Top + (Application.UsableHeight / 2)
    Me.Left = Application.Left + (Application.UsableWidth / 2)
End Sub

2 değerini monitörlerinize göre değiştirerek deneyin.

 

[petsiye]

Private Sub UserForm_Activate() Me.Top = Application.Top Me.Left = Application.Left Me.Top = Application.Top + (Application.UsableHeight / 2) Me.Left = Application.Left + (Application.UsableWidth / 2) End Sub

2 değerini monitörlerinize göre değiştirerek deneyin.

 

[petsiye]

Merhaba, Cevabınız için Teşekkür ederim. Kodu denedim fakat sonuç alamadım. Kodu tam olarak Bu çalışma kitabı / View Code kısmının en altına yapıştırdım. Acaba doğru mu yaptım. ( Ayrıca çalışma kitabımda 4 ayrı User Form mevcut. Bunların Hepsininde , Excelin aktif olduğu monitörün tam ortasında açılacak şekilde olmasını istiyorum )

 

[turist]

Bütün UserFormlara bu kodu yapıştırmalısınız.

 

[petsiye]

Tamamdır. Cevabınız İçin Teşekkür Ederim

 

[turist]

Tamamdır. Cevabınız İçin Teşekkür Ederim

Sağ olun.