Макрос для вставки текста блоками по 250 символов

Пользователь

Сообщений: 269 Регистрация: 01.01.1970

02.11.2009 14:39:04

Снова обращаюсь за помощью к гуру VBA - вопрос тот же:

Необходимо скопировать текст из ячейки в шейп "Надпись" панели рисования. Задача банальная при длине текста менее 255 символов. Есть информация, что при большем кол-ве символов, вставка проводится блоками по 250 символов через цикл. Как это сделать, уважаемые экселепланетяне?

Текст из шейпа "Надпись" панели рисования элементарно можно вытащить в ячейку листа через свойство AlternativeText - обратная задача решена путем поиска в интернете.

В примере макрос работает правильно, т.к. текст короче 255 символов. При увеличении длины текста - не работает! :(

Прикрепленные файлы

post_73440.xls (42.5 КБ)

Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#2 02.11.2009 14:55:21 The_Prist, попробуйте в примере изменить текст - работает! Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#3 02.11.2009 14:57:33 Ваш код меняет только замещающий текст, в рамочке ничего не меняется (при кол-ве символов >255) Век живи, век учись - два века проживешь!

Russel

Пользователь

Сообщений: 269 Регистрация: 01.01.1970

02.11.2009 15:02:57

В моем примере если именить текст в рамке и вытащить его в ячейку - он будет измененный. Т.е. если нажать первую кнопку, дописать что-то в рамке и нажать вторую кнопку - конечный текст будет отличаться от начального. При условии что текст короткий

Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#5 02.11.2009 15:03:52 А мне нужно, чтобы все это выполнялось при любой (разумной) длине текста Век живи, век учись - два века проживешь!

Russel

Пользователь

Сообщений: 269 Регистрация: 01.01.1970

02.11.2009 15:09:58

Так Вы уже его принудительно изменили командой ActiveSheet.Shapes("GGG").AlternativeText = str2, если бы код не меняли, все работало бы.

Вот здесь про то же:
http://www.sql.ru/Forum/actualpost.aspx?bid=46&tid=647032&mid=0&p=1

Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#7 02.11.2009 15:22:16 Скачал пример и зВашего поста, уменьшил кол-во исходного текста - все работает. Мало текста - работает, много - нет - вот в чем проблема, The_Prist! Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#8 02.11.2009 15:44:30 Ну например вот такой: Прикрепленные файлы post_73470.xls (43.5 КБ) Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#9 02.11.2009 16:24:50 Не совсем,- заменить текст в объекте текстом в ячейке С2. Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#10 02.11.2009 16:46:37 У Вас Excel 2007? У меня первые 255 символов только вставляет ((( Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#11 02.11.2009 16:54:34 А что делает Mid(str2, lStart, 254)? Век живи, век учись - два века проживешь!

Russel Пользователь Сообщений: 269 Регистрация: 01.01.1970	#12 03.11.2009 08:00:40 Вопрос решен! Спасибо Михаилу (aka mds_world) с форума www.sql.ru!!! Прикрепленные файлы post_73599.xls (63.5 КБ) Век живи, век учись - два века проживешь!

Читают тему