1

次のコードでエラー メッセージが表示されます。

Dim objPPT As PowerPoint.Application
Dim objPres As PowerPoint.Presentation

'Opening blank presentation
Set objPPT = WScript.CreateObject("PowerPoint.Application")
objPPT.visible = 1
Set objPres = objPPT.presentations.Add
objPres.Slides.Add (1, PowerPoint.PpSlideLayout.ppLayoutBlank)

このスクリプトは実行を停止し、次のようなエラー メッセージを表示します。Line 1 Char 12 Expected End of statement

私はvbscriptを初めて使用します。間違いがある場合は助けてください。

4

1 に答える 1

4

vbscriptを使用するには、vbscript の構文を知っている必要があります。以下は、スライドを PPT に追加するコードの例です (ここでは PPT テンプレートを使用)

' Add a Slide to a Microsoft PowerPoint Presentation
 Const ppLayoutText = 2

 Set objPPT = CreateObject("PowerPoint.Application")
 objPPT.Visible = True

 Set objPresentation = objPPT.Presentations.Add

 objPresentation.ApplyTemplate _
 ("C:\Program Files\Microsoft Office\Templates\1033\ProjectStatusReport.potx")

 Set objSlide = objPresentation.Slides.Add _
 (1, ppLayoutText)
于 2012-07-16T08:29:12.457 に答える