Заполнение штампа

[strannick]

Добрый день, уважаемые форумчане!
Столкнулся с проблемой автозаполнения чертежного штампа. Штамп вставлен на лист как изображение. Начиная со второго листа и до последнего листа Малый штамп. Во всех есть поле, содержание которого одинаковое. Заполняю посредством юзерформы. Вот код:

ActiveSheet.Shapes.Range(Array("stamp2")).Select
    ActiveSheet.Shapes.Range(Array("224")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.text = TextBox1.text
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 3). _
        ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .FirstLineIndent = 0
        .Alignment = msoAlignCenter
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 3).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Size = 14
        .Name = "Arial Narrow"
    End With

Листов всего 14, поэтому Малые штампы расположены со 2го по 14й листы и поименованы соответственно stamp2, stamp3 и т.д. Поэтому сделал цикл, перебираю имена штампов и пытаюсь вставить текст одинаковый для всех. НО, текст вставляется только в stamp2 и все. Методом тыка понял, что дело в строке

ActiveSheet.Shapes.Range(Array("224")).Select

которая одинаковая для всех штампов и изменить на допустим 334, 434 не получается.
Подскажите правильный метод выбора Array. Макрос писал макрорекодером.
Заранее спасибо!

P.S. И если не затруднит, поясните вот этот TextRange.Characters(1, 3) параметр. Чего-то в инете не нашел.

[strannick]

Все, вопрос решен. Все поля штампа идут как отдельные изображения. Сгруппированные. Разгруппировал, нужные переименовал и в цикле заполнил.)))

[Казанский]

Штамп вставлен на лист как изображение. Начиная со второго листа и до последнего листа Малый штамп. Во всех есть поле, содержание которого одинаковое.

Может, в колонтитул его? Один раз заполнить поле - на всех листах размножится.

[DiemonStar]

Есть такая программа - visio. там все это делается намного проще... и с недавних пор она интегрировалась в пакет офиса...

[strannick]

Сообщение от Казанский

Может, в колонтитул его? Один раз заполнить поле - на всех листах размножится.

Не, это же чертежный штамп, он к рамке привязан. В колонтитул не получится.

DiemonStar: Знаю, и очень давно люблю эту программку. Еще до того, как в офис интегрировали.))) Просто не хотелось городить огород и выходить за пределы Excel'я.

Все равно вопрос решил. Ступил изначально, не въехал, что все эти поля штампа были отдельными сгруппированными изображениями. Array("stamp2") - вот это была группа. Ее название переименовывалось. А Array("224") - это имя поля, которое нужно было заполнять. После разгруппировки переименовал эти поля 224, 324 и т.д. и в цикле заполнил.