Question

我有以下代码：

Sub WriteTextBox()

Dim i As Integer
Dim pptcount As Integer

Dim tb As Shape
Dim sld As Slide
Dim pres As Presentation
Dim var1 As String
var1 = InputBox("Vul hier de maand in")
var2 = "Maand: "
var3 = var2 + var1

pptcount = Application.Presentations.Count

For i = 1 To pptcount
    Set pres = Application.Presentations(i)

    Set sld = pres.Slides(1)

    Set tb = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 600, 50, 100, 50)
    tb.TextFrame.TextRange.Text = var3
    tb.Line.Visible = True


Next
End Sub

我可以通过它将新的文本形状放入我的powerpoint文件中。我还想更改对象中的其他内容（如字体大小），但输入时为：

tb.TextFrame.TextEffect.FontBold = true

我收到错误。

有人知道如何在我的文本框中添加额外的功能吗？还尝试使用With和End With语句，但它无法识别我的对象：

With tb.TextFrame.TextRange
    .TextEffect.FontBold = true
End With

Answer 1

tb.TextFrame没有TextEffect属性。试试这个：

tb.TextEffect.FontBold = msoTrue

修改以上适用于PowerPoint 2010。

以下内容适用于PowerPoint 2003：

tb.TextFrame.TextRange.Font.Bold = msoTrue

更改powerpoint对象的属性

1 个答案: