0

我需要在活动幻灯片中创建一个自定义文本框，并使用宏在 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 中抛出异常，表示此属性与对象无关。我还需要合并一个粗体和斜体的功能..请帮我解决这个问题

4

2 回答 2

0

你要

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

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

于 2014-01-26T17:37:56.653 回答
0

您可以在范围上使用 Find 来定位文本范围内的字符串并返回仅包含找到的文本的新文本范围：

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

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

于 2014-01-27T16:05:27.140 回答