Какое имя у создаваемой автофигуры

[ПЛЫ]

Добавляется автофигура:
Sheets("S").Shapes.AddShape msoShapeRectangle, 150, 50, 210, 77
Затем нужно ее .delete
Где взять ее имя, номер или ссылку на нее?

[GSerg]

Код: Выделить всё

dim saved as shape
set saved=Sheets("S").Shapes.AddShape(msoShapeRectangle, 150, 50, 210, 77)
....
saved.delete

[ПЛЫ]

Спасибо.
Не подскажете ли еще, как поменять цвет текста внутри автофигуры?

[GSerg]

shape.textframe.characters.font.color
А вообще - F2...