TextFrame в Excel средствами VBA

Программирование на Visual Basic for Applications
Asket
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 22.07.2008 (Вт) 6:30

TextFrame в Excel средствами VBA

Сообщение Asket » 22.07.2008 (Вт) 6:39

подскажите как можно обратиться к созданному объекту TextFrame спомощью языка макросов. создаю TextFrame с текстом, нужно чтоб по нажатию на кнопку текст в TextFrame менялся, а обратитьсо к нему не получаетсо :(

Goettsch
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 21.08.2007 (Вт) 1:44

Сообщение 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 появится сообщение с текстом: Это просто моя надпись. Вот примерно так. Дальше, надеюсь, Вы и сами разберетесь...

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 22.07.2008 (Вт) 10:26

Asket
Шо за textframe? может textbox? Где он находится? На листе? В юзерформе? Код вываливай на стол!
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 71

    TopList