Изменение свойств объекта Powerpoint

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 

EDIT Выше работает в PowerPoint 2010.

Ниже для PowerPoint 2003:

tb.TextFrame.TextRange.Font.Bold = msoTrue