Текст в объекте прямоугольник - как вписать?

[Perfilev]

Как поменять текст в надписи?
xla.ActiveSheet.Shapes(CStr(xla.ActiveSheet.Shapes(10).Name)).Select - вот так надпись выделить получается

xla.Selection.Caption = "---"
xla.Selection.Characters.Text = "---" - это как макрос записал (в vba работает)
xla.ActiveSheet.Shapes(CStr(xla.ActiveSheet.Shapes(10).Name)).Caption = "---"
xla.ActiveSheet.Shapes(CStr(xla.ActiveSheet.Shapes(10).Name)).Text = "---"

из этого ничё не работает, т.е. в свойствах меняются атрибуты, а видимый текст нет:(

[burik]

Во-первых не понимаю к чему ты в качестве индекса используешь имя? Ведь для получения этого имени ты указываешь индекс. Но это все не важно, все работает вот так:

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


WS.Shapes(1).Select
WS.Application.Selection.Caption = "------"


[Perfilev]

Инопланетяне улетели, спасибо:)