Goettsch » 22.07.2008 (Вт) 10:22
Здорово, Asket! Допустим, наш лист наз-ся MySheet, на нем находится надпись с текстом Это просто моя надпись, создадим макрос, чтобы в сообщении (MsgBox) вывести содержание (текст) этой надписи:
* * *
Sub Test_Text()
Dim MyLabel As Excel.TextFrame ' объект Надпись
Dim MyText As String ' текст внутри Надписи
Set MyLabel = Worksheets.Item("MySheet").Shapes.Item(1).TextFrame
Let MyText = MyLabel.Characters.Text
MsgBox MyText ' выводим текст надпси
Set MyLabel = Nothing
End Sub
* * *
В итоге при выполнении этого SUB появится сообщение с текстом: Это просто моя надпись. Вот примерно так. Дальше, надеюсь, Вы и сами разберетесь...