┌──────────────────────────────────────┐
│With シート                                                                 │
│    .図形.Top = .セル.Top                                                   │
│    .図形.Left = .セル.Left                                                 │
│End With                                                                    │
└──────────────────────────────────────┘
上記のように縦位置(.Top)と横位置(.Left)を合わせてあげればよい。

もう少し具体的に記述するなら以下のような感じ。
┌──────────────────────────────────────┐
│With ThisWorkbook.Worksheets("シート")                                      │
│    .Shapes("テキスト ボックス").Top = .Cells(y, x).Top                     │
│    .Shapes("テキスト ボックス").Left = .Cells(y, x).Left                   │
│End With                                                                    │
└──────────────────────────────────────┘