User formu ekranın sağ üst köşesinde gösterme

[kemal turan]

Merhaba uzmanlarımız,
Bir userform açıldığında ekranın sağ üst köşesine dayalı olmasını nasıl sağlarız.
Userformlarla çalışmaya yeni başladımda..
Çok teşekkür ederim.

 

[ExcelF1]

VBA'Da Userform'un Properties ayarlarında;
StartupPosition kısmını Manuel olarak değişitirin.
Left ile soldan uzaklık,
Top ile yukarıdan uzaklık değerlerini değiştiriniz.

Birde merakımı mazur görün ama, sorularınızı neden hep uzman arkadaşlara yönlendiriyorsunuz. Şahsen cevap versem mi diye 2 kez düşünüyorum.

 

[ExcelF1]

Veya hiç uğraşmayayım diyorsanız,
(Kod Arşiv Programından alıntıdır)

Private Declare Function GetSystemMetrics Lib _
"user32" (ByVal nIndex As Long) As Long
Private Const SM_CYSCREEN As Long = 1
Private Const SM_CXSCREEN As Long = 0
'Position
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd _
As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub UserForm_Activate()
BildschirmBreite = GetSystemMetrics(SM_CXSCREEN)
BildschirmHöhe = GetSystemMetrics(SM_CYSCREEN)
UserformBreite = 350
UserformHöhe = 450
wHandle = FindWindow(vbNullString, Me.Caption)
MoveWindow wHandle, BildschirmBreite - UserformBreite, _
0, UserformBreite, UserformHöhe, 1
End Sub

 

[kemal turan]

Merhaba Sn.ExcelF1
Kendim dışında herkesi uzman görmemin bir yorumu olarak düşünün.
Uyarınız ve sesli düşünmenizden dolayı teşekkür ederim.
Sizler gibi düşünen kardeşlerimiz olabileceğini düşünerek hitap başlangıcını değiştireceğim.
Teşekkür ederim.
Selametle kalınız.

 

[ExcelF1]

Sayın Turan,

Bu hoş düşünceniz için teşekkürler, yalnız, bizim de sizden pek farkımız yok.
Selametle kalınız.