【VBA】エクセルからパワーポイントのファイルを操作する

エクセルVBAでよく使うコードの備忘録。VBAでパワーポイントのファイルを操作するためにファイルを開くコード。

事前準備

VBAでパワーポイントを操作するには、参照設定が必要です。VBAのコードエディタから「ツール > 参照設定」と進み、「Microsoft PowerPoint XX.X Object Library」にチェックを入れておきます。

パワーポイントファイルを開く

操作のためにパワーポイントのファイルを開くコード。アプリケーションを設定し、プレゼンテーションオブジェクトを取得する。

Dim pptObj As PowerPoint.Application
Set pptObj = CreateObject("PowerPoint.Application")
pptObj.Visible = True

Dim pptPrs As PowerPoint.Presentation
Set pptPrs = pptObj.Presentations.Open("[貼付先パワーポイントファイルへのパス]")

パワーポイントファイルを保存して閉じる

操作終了後に保存して閉じる際のコード。警告ダイアログを非表示にしたい場合はこちら。

'--- 上書き保存 ---'
Call pptPrs.Save
pptPrs.Close

'--- 名前を付けて保存 ---'
Call pptPrs.SaveAs("[保存先のパス]")
pptPrs.Close