0

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>ーーーー
 

gorby5775 質問の投稿
回答とコメントは、会員登録(無料)で閲覧できるようになります。