V6ユーザーです。

Powerpoint操作（テキスト挿入）で自分で文字フォントをArialに指定してテキスト挿入をしたいと考えています。

下記のコメントアウトした行を、コメントなしにして実行したら、ステートメントエラーになりました。

どう修正すれば動くか教えてください。

---<start of code>-----
Set targetPptObj = objPpt.ActivePresentation

Set text = targetPptObj.Slides(num_slide).Shapes.AddTextbox(1,x, y, w, h)
 text.TextFrame.TextRange.Text = str_text
' text.TextEffect.Font.Name = Arial
 text.TextEffect.FontSize = 18

---<end of code>-----