İnputbox,ın ekran daki yerini belirlemek

[kykbt]

Arkadaşlar merheba,
Oluşturduğum inputbox ekranın sol üst köşesinde çıkıyor. Bu inputbox,ın ekran,daki yerini ben belirlemek istiyorum. Bunu nasıl yapabilirim.

 

[Haluk]

Aşağıdaki kod, InputBox'ı H10 hücresinin sol-üst köşesine konumlandırır.....

Sub Test()
    x1 = (ActiveWindow.PointsToScreenPixelsX(0) + Range("H10").Left * ActiveWindow.Zoom / 75) * 15
    y1 = (ActiveWindow.PointsToScreenPixelsY(0) + Range("H10").Top * ActiveWindow.Zoom / 75) * 15
    strInput = InputBox("İsminiz nedir?", "Bilgi girişi!", "İsminiz", x1, y1)
    MsgBox strInput
End Sub

.

 

[kykbt]

Aşağıdaki kod, InputBox'ı H10 hücresinin sol-üst köşesine konumlandırır.....

Sub Test()
    x1 = (ActiveWindow.PointsToScreenPixelsX(0) + Range("H10").Left * ActiveWindow.Zoom / 75) * 15
    y1 = (ActiveWindow.PointsToScreenPixelsY(0) + Range("H10").Top * ActiveWindow.Zoom / 75) * 15
    strInput = InputBox("İsminiz nedir?", "Bilgi girişi!", "İsminiz", x1, y1)
    MsgBox strInput
End Sub

.

Hocam çok teşekkürler ediyorum.