Excel VBA - Moving Shape to specific position

Question

Hi guys,

Could anyone tell me how can I move a Text Box called "X" to a specific position?

I am trying something like this, but getting error!

ActiveSheet.Shapes("X").Select
Selection.ShapeRange.Move(x,y)

Thanks in advance,

Aldo.

Answer 1

Hello,
If you are using a userform and that textbox is inside the userform then you can use the .left and .top properties of the textbox.
Still I don't know if that works for a loose textbox in a spreadsheet.

Answer 2

The only option I have found is... (.IncrementLeft, IncrementTop), but only moves it from one place to another. What I look for is the possibility to determinate the exact position I need.

Aldo.

Answer 3

try .shapes(X).top =  and .shapes(X).left =

Answer 4

With ActiveSheet.Shapes("ShapeName")
.Left = 3
.Top = 2
End With