ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / При считывании текста Shape из ВБА, теряется текст за 255 символом
6 сообщений из 6, страница 1 из 1
При считывании текста Shape из ВБА, теряется текст за 255 символом
    #35869716
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Обращаюсь к екселю 2003 из акса 2003. Пытаюсь прочесть надпись
Код: plaintext
1.
2.
3.
Set xl = CreateObject("Excel.Application")
Set xW = xl.Workbooks.Open(xlsfile)
Set xlWs = xW.Worksheets( 1 )
Debug.Print xW.Worksheets( 1 ).Shapes("Надпись 1").TextFrame.Characters.Text
Считываются только первые 255 символов. Подскажите, пожалуйста, как прочесть все.
...
Рейтинг: 0 / 0
15.03.2009, 02:48:59
| Ответить | Цитировать | Написать  
При считывании текста Shape из ВБА, теряется текст за 255 символом
    #35869749
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Как считать нашел, свойство AlternativeText объекта Shapes.
Код: plaintext
s = xW.Worksheets( 1 ).Shapes("Надпись 1").AlternativeText


По описанию это свойство read/write, но записать не удается
Код: plaintext
xW.Worksheets( 1 ).Shapes("Надпись 1").AlternativeText=txt
Ошибки нет, но и нет изменений (в переменной txt, слегка измененный первоначальный текст)
...
Рейтинг: 0 / 0
15.03.2009, 05:47:32
| Ответить | Цитировать | Написать  
При считывании текста Shape из ВБА, теряется текст за 255 символом
    #35869750
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
И что любопытно, сразу после записи считываю текст надписи - и все правильно, все изменения есть. Но на экране не отображаются.
...
Рейтинг: 0 / 0
15.03.2009, 05:57:26
| Ответить | Цитировать | Написать  
При считывании текста Shape из ВБА, теряется текст за 255 символом
    #35872180
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Уж сколько раз твердили миру - не предназначен Эксель для таких извращений. НЕ ПРЕДНАЗНАЧЕН!
...
Рейтинг: 0 / 0
16.03.2009, 17:15:51
| Ответить | Цитировать | Написать  
При считывании текста Shape из ВБА, теряется текст за 255 символом
    #35872475
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
White OwlУж сколько раз твердили миру - не предназначен Эксель для таких извращений. НЕ ПРЕДНАЗНАЧЕН!
Заказчик всегда прав (с). Иногда с ним спорить себе дороже. Но это тот самый случай.

Тем не менее, задачу решил. В аксе считываю AlternativeText, в данном случае подходит, затем частями, по 200 символов в цикле, с помощью Selection.Characters(200 * (i - 1) + 1).Insert String, записываю в текст шейпа.
...
Рейтинг: 0 / 0
16.03.2009, 18:56:57
| Ответить | Цитировать | Написать  
При считывании текста Shape из ВБА, теряется текст за 255 символом
    #36277547
Russel_kazan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Russel_kazan
Гость
mds_world,
Подскажите пожалуйста, как правильно написать код, о котором Вы говорите в последнем сообщении.
У меня текст из ячейки A35 (около 3000 символов) должен помещяться в шейп "GGG".
Сделал так:

Sub BBB()
Dim str2 As String
str2 = Range("A35")
ActiveSheet.Shapes("GGG").Select
For i = 1 To 20
Selection.Characters(200 * (i - 1) + 1).Insert str2
Next i
End Sub

Получается полная хрень - если в А35 текста мало, он 20 раз дублируется в шейп, если много - шейп пустой.

PS VBA практически не знаю.
...
Рейтинг: 0 / 0
28.10.2009, 15:13:48
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / При считывании текста Shape из ВБА, теряется текст за 255 символом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36277547&tid=2178915]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 173ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 227ms
total:  482ms
созд. / загр.: 482ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]