PPTMファイルに指定フォントサイズでテキスト挿入をするために、VBscriptを書きました。

objPpt.Visible = True したあとは下記のコードを書きました。下記のコードを部分実行すると添付画像のエラーが出ました。下記のボールド書体の記述がまずいのだろうと推定しますが、直し方がわかりません。詳しい方教えてください。

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

Set Font.Size = 15

targetPptObj.Slides(num_slide).Shapes.AddTextbox(1,x, y, w, h).TextFrame.TextRange.Text.Font.Size = str_text
---<end of code>-----