powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Многострочный текст
12 сообщений из 12, страница 1 из 1
Многострочный текст
    #39157565
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте!

В экселевском файле нужно хранить многострочный длинный текст. Можно сделать переменную в макросе, но не удобно его там писать и редактировать.

Можно хранить в ячейке, но его не удобно смотреть, да еще отступы убегают.

На листе создавал объект надпись и туда помещался текст. Виден текст целиком с отступами. Но в макросе не понятно как достать его из объекта Shapes. Можно ли его достать оттуда? Тоже самое с объектом OpenDocumentText.

Как можно хранить многострочный текст в экселевском файле чтобы можно было макросом доставать как string-ый тип?
...
Рейтинг: 0 / 0
Многострочный текст
    #39157702
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ferzmikkне понятно как достать его из объекта Shapes
Код: vbnet
1.
    a = ActiveSheet.Shapes(1).TextFrame.Characters.Text
...
Рейтинг: 0 / 0
Многострочный текст
    #39158124
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Казанскийferzmikkне понятно как достать его из объекта Shapes
Код: vbnet
1.
    a = ActiveSheet.Shapes(1).TextFrame.Characters.Text



В коллекции ActiveSheet.Shapes(1).TextFrame отсутствует свойство Characters
...
Рейтинг: 0 / 0
Многострочный текст
    #39158125
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Многострочный текст
    #39158314
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ferzmikkотсутствует свойство CharactersЛогично. Поэтому что это не свойство, а метод :)
И это не мешает считать текст:
...
Рейтинг: 0 / 0
Многострочный текст
    #39158422
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
The_Prist,

Текст то вытащил, но он не полный. 251 символов вытащил. Целиком вытащить можно?
...
Рейтинг: 0 / 0
Многострочный текст
    #39158438
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Через свойство Characters точно нет. Но можно иначе:
Код: vbnet
1.
a = ActiveSheet.Shapes(1).OLEFormat.Object.Text
...
Рейтинг: 0 / 0
Многострочный текст
    #39158483
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
The_Prist,

Спасибо! Получилось
...
Рейтинг: 0 / 0
Многострочный текст
    #39159740
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Возможно сделать так, чтобы такой объект с текстом был защищен (нельзя перемещать и менять размеры), но текст с этого объекта можно копировать?
...
Рейтинг: 0 / 0
Многострочный текст
    #39160198
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ferzmikk,

Зачем на листе отображать объект, с которым ничего нельзя делать? Вы хотите, чтобы изменения только Вы могли в него вносить? Так сделайте его скрытым:
Код: vbnet
1.
ActiveSheet.Shapes(1).Visible=False


а для себя любимого делайте его видимым обратно
Код: vbnet
1.
ActiveSheet.Shapes(1).Visible=True
...
Рейтинг: 0 / 0
Многострочный текст
    #39160223
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
The_Prist,

Тот объект выводит текст. Его можно изменять программно и нельзя изменять вручную. Текст вручную можно копировать с объекта.
...
Рейтинг: 0 / 0
Многострочный текст
    #39160278
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ferzmikk,

Советую иначе подойти к решению задачи. Без защиты листа с защитой объектов нельзя запретить изменять размеры и перемещать. В смысле, можно конечно, но насколько знаю придется много кода написать и вряд ли можно будет быть уверенным, что все это в любой ситуации сработает(например, если в меню указано Выбор объектов).
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Многострочный текст
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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