Vba 如何在Powerpoint中创建具有设置文本、字体类型、字体大小和字体颜色的自定义文本框？

我需要在活动幻灯片中创建一个自定义文本框，在Powerpoint 2007中使用宏设置文本、字体类型、字体大小、字体颜色以及粗体和斜体

我目前正在使用此代码：

Sub InsertTextBox()
Set myDocument = ActivePresentation.Slides(1)
Set newTextBox = myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    100, Top:=100, Width:=541.44, Height:=43.218)
    With newTextBox.TextFrame.TextRange
        .Text = "Slide Title"
        .Font.Size = 24
        .Font.Name = "Arial"
        .Font.Colour = RGB(107, 107, 107)  
End With
End Sub

它在.Font.color中抛出一个异常，表示此属性与该对象不关联。另外，我还需要加入一个粗体和斜体的功能。请帮我解决这个问题

.Font.Color.RGB = RGB(107, 107, 107)

---

正如Kazjaw指出的，它是.Color而不是.Color

您可以使用查找范围来查找textrange中的字符串，并返回一个新的textrange，其中只包含找到的文本：

With newTextBox.TextFrame.TextRange
    With .Find("Slide Title")
        .Font.Bold = True
    End With
End With

---

实际上，您需要使用Instr来验证您要查找的文本是否确实在文本框中。

.Font.Color=

是正确的属性。对于粗体，请使用这个

.Font.bold=true

，对于斜体，则非常类似：

.Font.italic=true

。您好，如果我只想将文本“幻灯片标题”设为粗体，并将其插入文本框，而幻灯片标题后的剩余文本则不应为粗体。如何操作