Ограничение текстовой строки VBA в текстовом поле

Я нашел ответ на вопрос о получении текста из текстового поля в Excel, используя VBA:

Получить значение текстового поля в ячейке

Я прокомментировал сегодня, но не будучи уверенным, что это будет поднято, я думал, что задам вопрос.

Моя версия Excel – 2002 / версия 10. Мой запрос заключается в том, ограничен ли этот метод для возврата текста из TextBox чтобы вернуть определенное количество символов / длину строки.

Worksheets("Sheet1").Shapes("TextBox 1").TextFrame.Characters.Text

Это возвращает текст, но не возвращает всю строку.

Когда я использую:

Worksheets("Sheet1").Shapes("TextBox 1").TextFrame.Characters.Text = "blah blah blah"

Он устанавливает текст «бла-бла-бла», если исходный текст довольно длинный. В этом случае он перезаписывает большую часть существующего текста «бла-бла-бла», но затем также включает оставшуюся часть текста.

Надеюсь, это имеет смысл, и я надеюсь, что кто-то знает ответ.

благодаря

**** В ДОПОЛНЕНИИ **** На самом деле, я только что посмотрел и что интересно, и думаю, что мой вопрос в том, сколько символов он возвращает 255 (знаменитый 255).

Поэтому, имея в виду, я думаю, что мой вопрос нуждается в изменении: «Есть ли способ ограничить это до 255 символов?»

В моем 32-битном Excel 2013 ограничение составляет 32767 – (2 ^ 15) -1 – символов. Попробуйте запустить этот VBA и посмотрите, есть ли у меня такая же ошибка:

 Option Explicit Sub Test() Dim ws As Worksheet Dim shp As Shape Dim strFill As String Dim strTest As String Dim lng As Long Set ws = Sheet1 Set shp = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, _ ws.Range("A1").Left, ws.Range("A1").Top, 500, 500) strTest = "blah blah blah" 'enter 32767 x characters in textbox strFill = VBA.String(32767, "x") shp.TextFrame.Characters.Text = strFill 'check the string length MsgBox Len(shp.TextFrame.Characters.Text) 'overwrite the string shp.TextFrame.Characters.Text = strTest MsgBox "overwritten with " & strTest 'enter 32768 x characters in textbox strFill = VBA.String(32768, "x") shp.TextFrame.Characters.Text = strFill '<~~ error should occur on this line! End Sub 

Ошибка:

Ошибка времени выполнения «1004»: невозможно установить свойство «Текст» класса «Символы»

Ниже приведена вторая строка кода, где делается попытка заполнить Textbox длиной 32 768 символов:

 strFill = VBA.String(32768, "x") shp.TextFrame.Characters.Text = strFill 
  • Ячейка, подключенная средствами управления, продолжает терять формулу
  • Возвращаемое значение в текстовом поле из Combobox в Excel
  • Excel - изменение BackColor текстовых полей UserForm и ComboBoxes с помощью VBA
  • Как активировать входной режим с VBA на текстовом поле неактивного x, вставленного в рабочий лист?
  • Excel VBA Append для TextBox медленный
  • Как выбрать данные в TextBox или ListBox, а затем отправить электронную почту через Outlook на основе этих данных
  • Неверное текстовое поле в форме VBA
  • Текстовое поле VBA на числовое значение
  • Excel VBA - Shapes Текстовое поле OnChange событие
  • Дублируйте то, что находится в текстовом поле в других текстовых блоках на других листах
  • Вставить из excel в текстовое поле
  • Interesting Posts

    как перейти к следующему элементу на странице с тем же именем класса, используя selenium vba

    Дата от текстового формата до формата даты в VBA

    Экспорт результатов в Excel для каждого цикла

    Автоматизация процесса регистрации файлов PDF со связанной информацией

    Проверьте, существует ли запись, прежде чем добавлять ее в базу данных.

    Проблема с сопоставлением Excel с логическим выражением

    Чтение дочернего узла XML Атрибут на VBA с помощью oDOC

    Ошибка выполнения 6 – Переполнение, переменная, заданная как Long

    Переменные не устанавливаются между случаями?

    Добавление n строк в ячейку, которая включена в формулу

    Excel и Outlook 2016 – ошибка «body» объекта object__mailItem с ошибкой

    SAS DDE записать hpyerlink в одну ячейку не удалось

    vba – итерация по коллекции

    «Ошибка несоответствия типа» с помощью VLookup

    Получить Python для печати в pdf / изображение выбранных ячеек в MS Excel

    Давайте будем гением компьютера.