0

下記は、Excelのセルに記入した文字列をPowerpointのテキストボックスに転記するシナリオのコードです。

転記する文字列をテキストボックス内でセンタリングするために、下から3行目のコードのコメントアウトを外して(つまり実行して)シナリオを実行したら、添付のエラーが出ました。下から3行目のコードをどう修正すれば良いでしょうか?

ーー<Start of code>ーーーーー
str_text = !テキスト!
num_slide = Cint( !スライド番号! )
positions = !挿入位置!
 
tmp = Split(positions, ",")
 
x = cint(tmp(0))
y = cint(tmp(1))
w = cint(tmp(2))
h = cint(tmp(3))
 
 
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
 
Set targetPptObj = objPpt.ActivePresentation
 
Set text = targetPptObj.Slides(num_slide).Shapes.AddTextbox(1,x, y, w, h)
 text.TextFrame.TextRange.Text = str_text
 'text.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
 text.TextEffect.FontName = Arial
 text.TextEffect.FontSize = 20
 

ーー<End of code>ーーーーー

この質問は解決済みのためクローズされています。
gorby5775 ベストアンサーとして選択しました
回答とコメントは、会員登録(無料)で閲覧できるようになります。