Копирование / управление форматированным текстом в текстовых блоках в Excel 2013 с использованием VBA

Я пытаюсь сделать две вещи в Excel 2013 с помощью VBA:

  1. Получить FORMATTED текст из текстового поля и манипулировать им (например, HTML). А также
  2. Скопируйте FORMATTED текст из текстового поля в другое текстовое поле.

Я пробовал две вещи:

'Copies text only. No formatting, but with proper line breaks Dim txtContent As String txtContent = Worksheets("TextBox").Shapes("TextBox1").TextFrame.Characters.Text Worksheets("TextBox").Shapes("TextBox 3").TextFrame.Characters.Text = txtContent 

Второй подход был аналогичен предыдущему:

 'Does not do anything. Produces Run-time error 91 Dim myFrame As TextFrame myFrame = Worksheets("TextBox").Shapes("TextBox1").TextFrame Worksheets("TextBox").Shapes("TextBox 3").TextFrame = myFrame 

Пожалуйста помоги.

Вы можете установить или получить форматирование текстовых символов в TextBox следующим образом:

 Sub durall() ActiveSheet.Shapes("TextBox 1").TextFrame.Characters.Font.ColorIndex = 3 End Sub 
 Sub Tester() CopyText ActiveSheet.Shapes("txtOne").TextFrame, _ ActiveSheet.Shapes("txtTwo").TextFrame End Sub Sub CopyText(tf1 As TextFrame, tf2 As TextFrame) Dim n, f As Font tf2.Characters.Text = tf1.Characters.Text For n = 1 To tf1.Characters.Count Set f = tf1.Characters(n, 1).Font With tf2.Characters(n, 1).Font .Bold = f.Bold .Color = f.Color .Italic = f.Italic 'add other properties as needed... End With Next n End Sub 
  • Как выбрать данные в TextBox или ListBox, а затем отправить электронную почту через Outlook на основе этих данных
  • Excel - изменение BackColor текстовых полей UserForm и ComboBoxes с помощью VBA
  • Возвращаемое значение в текстовом поле из Combobox в Excel
  • Диалоговое окно WPF modess из надстройки MS Excel
  • Разница между двумя датами для заполнения текстового поля в VBA
  • Управление текстовым полем в Excel - как ссылаться в Perl
  • Добавление чисел с использованием форм Excel
  • Текстовое поле ActiveX на листе листа Excel заменяет границу и шрифт при утрате фокуса
  • Написание кода / макроса Excel VBA для заполнения текстовых полей Powerpoint с значениями ячейки Excel
  • Получение текста из хеш-таблицы текстовых полей
  • Очистка текстового поля при нажатии кнопки VBA
  • Interesting Posts

    Копирование диапазона из ячеек выше в VBA

    DataReader не видит данные в ячейке Excel, если предыдущая ячейка в столбце пуста

    Экспорт многостраничной таблицы Adobe PDF в Excel

    Программирование Windows (GUI): пустая вкладка не отображается при запуске программы

    VBA Вставить коррелирующую формулу массива в ячейку

    Excel Macro для записи результата формулы в ячейку

    Excel для сравнения выбранной ячейки столбца с ячейкой «следующий столбец» и заполнением цвета, если они идентичны

    Использование кода vba для сортировки нескольких таблиц на основе того же столбца

    Ограничение количества «названных диапазонов» в методе Range

    Как бы я зацикливал или повторял макрос подряд за строкой?

    упорядочивать данные из столбцов в матрицу

    Как сделать так, чтобы был выбран вариант OptionButton.Value

    Как выполнить операции столбца с строкой в ​​excel

    VBA Поиск файлов с именами, содержащими строку в папках и подпапках

    «Исключение в потоке» main «java.lang.NoClassDefFoundError: org / apache / commons / collections4 / ListValuedMap» при чтении excel Apache POI selenium

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