PowerPointファイルの指定スライド番号のフィントサイズを一括変更したい
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 質問の投稿
回答とコメントは、会員登録(無料)で閲覧できるようになります。
新規登録