Application.InputBox screen position doesn't work.
 

I don't care about X in the following code, I just want to control where the
textbox appears onscreen. Changing the values of Left and Top has no effect.
Why? What am I missing?

Sub test()
Dim X
X = Application.InputBox(prompt:="Hello", Left:=10, Top:=10, Type:=5)
End Sub

--
TomThumb

Application.InputBox screen position doesn't work.
 

Try this one out
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextB ox.1", Link:=False, _
DisplayAsIcon:=False, Left:=10, Top:=10, Width:=88.5, Height:= _
13.5).Select
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"TomThumb" wrote:

I don't care about X in the following code, I just want to control where the
textbox appears onscreen. Changing the values of Left and Top has no effect.
Why? What am I missing?

Sub test()
Dim X
X = Application.InputBox(prompt:="Hello", Left:=10, Top:=10, Type:=5)
End Sub

--
TomThumb

Application.InputBox screen position doesn't work.
 

John,

Thank you for your suggestion, but I would prefer a direct answer to my
question as to why the Application.InputBox example I gave does not work.
I'm reluctant to use your suggestion due to added complexity and possible
unintended consequences.

Tom
--
TomThumb


"John Bundy" wrote:

Try this one out
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextB ox.1", Link:=False, _
DisplayAsIcon:=False, Left:=10, Top:=10, Width:=88.5, Height:= _
13.5).Select
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"TomThumb" wrote:

I don't care about X in the following code, I just want to control where the
textbox appears onscreen. Changing the values of Left and Top has no effect.
Why? What am I missing?

Sub test()
Dim X
X = Application.InputBox(prompt:="Hello", Left:=10, Top:=10, Type:=5)
End Sub

--
TomThumb

Application.InputBox screen position doesn't work.
 

Works for me when I change the numbers for Left and Top.

Sub test()
Dim X
X = Application.InputBox(prompt:="Hello", Left:=310, Top:=100, Type:=5)
End Sub


Gord Dibben MS Excel MVP


On Tue, 31 Jul 2007 09:18:00 -0700, TomThumb
wrote:

John,

Thank you for your suggestion, but I would prefer a direct answer to my
question as to why the Application.InputBox example I gave does not work.
I'm reluctant to use your suggestion due to added complexity and possible
unintended consequences.

Tom

Application.InputBox screen position doesn't work.
 

Gord,

I tried your parameters, but the position of the Application.InputBox did
not budge. I neglected to mention that I dragged the Box to a new location
using my mouse cursor prior to testing the code in my example. I am at a
loss...

Tom
--
TomThumb


"Gord Dibben" wrote:

Works for me when I change the numbers for Left and Top.

Sub test()
Dim X
X = Application.InputBox(prompt:="Hello", Left:=310, Top:=100, Type:=5)
End Sub


Gord Dibben MS Excel MVP


On Tue, 31 Jul 2007 09:18:00 -0700, TomThumb
wrote:

John,

Thank you for your suggestion, but I would prefer a direct answer to my
question as to why the Application.InputBox example I gave does not work.
I'm reluctant to use your suggestion due to added complexity and possible
unintended consequences.

Tom