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

Question

我需要在活动幻灯片中创建一个自定义文本框，其中包含使用宏的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.Colour中抛出异常，说该属性与该对象无关。此外，我需要加入一个粗体和斜体的功能..Plz帮助我这个

Answer 1

你想要

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

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

Answer 2

您可以在范围上使用“查找”来查找文本范围内的字符串，并返回仅包含找到的文本的新文本范围：

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

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