PowerPointファイルの指定スライド番号のフィントサイズを一括変更する目的で下記のユーザライブラリを自作して実行したら、添付画像のエラーが出ました。どう直せば動くでしょうか？

ｰｰ<Start of code>ｰｰｰｰ
num_slide = Cint( !スライド番号! )
num_fontsize = Cint( !フォントサイズ! )
 
 
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
 
Dim shp As Shape
 
For Each shp In ActivePresentation.Slides(num_slide).Shapes
 
　text.TextEffect.FontSize = num_fontsize
 
Next shp
ｰｰ<End of code>ｰｰｰｰ