在VBA中更改文本框中部分文本的字体

好的，这还没有被问到

所以，我最近开始在PowerPoint中探索VBA。我开始制作一些看起来像幻灯片中的文本编辑器的东西。但是，问题是，我制作的按钮应该使所选文本变为粗体、斜体或下划线，将文本框内的整个文本变为粗体、斜体或下划线文本

我当前用于更改文本字体的方法是：

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

---

显然，当单击CommandButton1时，此代码将使TextBox1中的所有文本变为粗体文本。但是，如果我只想将部分文本更改为粗体文本（即所选文本），该怎么办？

据我所知，除了作为一个整体，您无法控制文本框文本的格式

---

在VB中，我认为可以使用富文本框控件来完成这项工作，但PPT/VBA没有提供。据我所知，除了作为一个整体，您无法控制文本框文本的格式

---

在VB中，我认为您可以使用富文本框控件来完成这项工作，但PPT/VBA不提供该控件。

我知道这可以处理VBA和powerpoint对象：

…Shape.TextFrame.TextRange.Characters（10,15）。Font.Color.RGB=RGB（，）

…Shape.TextFrame.TextRange.Characters（10,15）。Font.Italic=msoTrue

---

我还没有尝试使用excel文本框。

我知道这可以处理VBA和powerpoint对象：

…Shape.TextFrame.TextRange.Characters（10,15）。Font.Color.RGB=RGB（，）

…Shape.TextFrame.TextRange.Characters（10,15）。Font.Italic=msoTrue

我还没有尝试使用excel文本框