vbscript - PowerPoint にアクセスして、VBScript を使用してスライドにテキストを追加しようとしています。

Question

vbscriptを使用して既存のパワーポイントにテキストを追加する方法を教えてください。

前もって感謝します。

Answer 1

これらの記事でいくつかの指針を確認してください。

Visual Basic を使用して PowerPoint を自動化する方法 - Microsoft Support Microsoft Kb kb/555191

VBA を使用して Powerpoint プレゼンテーションを自動化する

コードの基本は次のようになります。

Dim oPPt, oPPs
Set oPPt = CreateObject("PowerPoint.application")
oPPt.Visible = True
' Assuming your adding it to an existing powerpoint : '
Dim sPPtFile: sPPtFile = "C:\yourPowerpoint.pptx"
Set oPPs = oPPt.Presentations.Open(sPPtFile)

Dim oSlide
Set oSlide = oPPs.Slides.Add(1, 2)
oSlide.Shapes(1).TextFrame.TextRange.Text = "My first slide "

oPPTFile.SaveAs "C:\yourPowerpointUpdated.pptx" 
oPPt.quit
set oPPt = nothing