Excel 2003: Worksheets().Shapes().Select - выбирает не весь текст фигуры

[ZaeC]

Проблема в следующем:
есть вставленная фигура с текстов внутри.
нужно взять этот текст и заменть в нем одну последовательность символов на другую.
Делаю это так:

Worksheets(1).Shapes(1).Select
Selection.Characters.Text = Replace(Selection.Characters.Text, "&&&d1&&&", Trim(d_from))
Selection.Characters.Text = Replace(Selection.Characters.Text, "&&&d2&&&", Trim(d_to))
т.е. сиволы &&&d1&&& и &&&d2&&& замещаю на значения переменных d_from и d_to.
Переменные эти - строки по 8 символов. Фигура на листе только одна.

Проблема в том, что
Selection.Characters.Text - первые 256 символов текста.. а у мне надо больше. Т.е. в первых 256 символах он замещает, а в остальных нет..
Как мне перебрать весь текст фигуры?