WinActorv7.2.0ユーザです。

フォント種類やフォントサイズを指定する目的で、「PowerPoint操作(テキスト挿入)」ユーザライブラリに最後の4行を追加してみましたが、ある方から

「textというオブジェクトがないためエラーとなる」と言われてしまいました。コードをどのように修正すれば目的を達成できますか？

'---<コードはここから>-----

str_text = !テキスト!
num_slide = Cint( !スライド番号! )
positions = !挿入位置!

tmp = Split(positions, ",")

x = cint(tmp(0))
y = cint(tmp(1))
w = cint(tmp(2))
h = cint(tmp(3))

Set objPpt = GetObject(, "PowerPoint.Application")

If objPpt is Nothing then
Set objPpt = CreateObject("PowerPoint.Application")
End if

If objPpt is Nothing then
Err.Raise 1, "", "指定されたPowerPointアプリケーションが開けません。"
End if

objPpt.Visible = True

Set targetPptObj = objPpt.ActivePresentation

Set text = targetPptObj.Slides(num_slide).Shapes.AddTextbox(1,x, y, w, h)
text.TextFrame.TextRange.Text = str_text
'text.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
text.TextEffect.FontName = Arial
text.TextEffect.FontSize = 20

'---<コードはここまで>-----