Изменить шрифт части текста в текстовом поле в VBA

Question

Хорошо, об этом еще не спрашивали.

Итак, я недавно начал изучать VBA в PowerPoint.Я начал делать что-то похожее на текстовый редактор в слайд-шоу.Но проблема в том, что созданные мной кнопки, которые должны сделать выделенный текст жирным, курсивом или подчеркиванием, превращают весь текст внутри текстового поля в текст, выделенный жирным шрифтом, курсивом или подчеркиванием.

Текущий метод, которыйЯ использовал, чтобы изменить текстовый шрифт так:

Private Sub CommandButton1_Click()
    If TextBox1.Text.Font.Bold = False Then
        TextBox1.Text.Font.Bold = True
    Else
        TextBox1.Text.Font.Bold = False
    End If
End Sub

Очевидно, этот код заставит весь текст в TextBox1 превратиться в полужирный текст при нажатии CommandButton1.Но что мне делать, если я хочу, чтобы только часть текста была выделена жирным шрифтом (то есть выделенным текстом)?

Answer 1

Я знаю, что это работает с объектами VBA и powerpoint:

... Shape.TextFrame.TextRange.Characters (10, 15) .Font.Color.RGB = RGB (,,)

... Shape.TextFrame.TextRange.Characters (10, 15) .Font.Italic = msoTrue

Я не пробовал использовать текстовые поля Excel.

Answer 2

Насколько я знаю, вы не можете контролировать форматирование текста текстового поля, кроме как в целом.

В VB я думаю, что вы можете использовать элемент управления Rich Text Box для выполнения этой работы, но PPT / VBA не предоставляет его.