Excel VBAのPowerPointオブジェクトライブラリ：プレゼンテーションの自動化を実現する強力なツール

Sub CreatePowerPointPresentation()
    ' PowerPointライブラリの参照設定が必要
    ' 参照設定: Microsoft PowerPoint xx.x Object Library

    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide As PowerPoint.Slide
    Dim ppShape As PowerPoint.Shape

    ' PowerPointアプリケーションのインスタンスを取得
    Set ppApp = New PowerPoint.Application

    ' 新しいプレゼンテーションを作成
    Set ppPres = ppApp.Presentations.Add

    ' 新しいスライドを追加（タイトルスライド）
    Set ppSlide = ppPres.Slides.Add(1, ppLayoutTitle)

    ' スライドのタイトルとサブタイトルを設定
    ppSlide.Shapes.Title.TextFrame.TextRange.Text = "Excel VBAからのPowerPoint"
    ppSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "これは自動生成されたプレゼンテーションです。"

    ' プレゼンテーションを保存
    ppPres.SaveAs "C:\path\to\your\presentation.pptx"

    ' PowerPointを表示（バックグラウンドで動作させたくない場合）
    ppApp.Visible = True

    ' リソースの解放
    Set ppShape = Nothing
    Set ppSlide = Nothing
    Set ppPres = Nothing
    Set ppApp = Nothing

    MsgBox "新しいPowerPointプレゼンテーションが作成されました。", vbInformation, "完了"
End Sub

Sub AddChartToPowerPointSlide()
    ' PowerPointライブラリの参照設定が必要
    ' 参照設定: Microsoft PowerPoint xx.x Object Library

    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide As PowerPoint.Slide
    Dim ppChart As PowerPoint.Shape

    ' PowerPointアプリケーションのインスタンスを取得
    Set ppApp = New PowerPoint.Application

    ' 新しいプレゼンテーションを作成
    Set ppPres = ppApp.Presentations.Add

    ' 新しいスライドを追加（コンテンツスライド）
    Set ppSlide = ppPres.Slides.Add(1, ppLayoutText)

    ' グラフを追加
    Set ppChart = ppSlide.Shapes.AddChart2(201, xlColumnClustered, 50, 50, 400, 300)

    ' グラフのデータをExcelから取得して設定
    Dim chartData As Chart
    Set chartData = ppChart.Chart
    chartData.ChartData.Workbook.Worksheets(1).Range("A1").Value = "カテゴリー"
    chartData.ChartData.Workbook.Worksheets(1).Range("A2").Value = "A"
    chartData.ChartData.Workbook.Worksheets(1).Range("A3").Value = "B"
    chartData.ChartData.Workbook.Worksheets(1).Range("B1").Value = "値"
    chartData.ChartData.Workbook.Worksheets(1).Range("B2").Value = 10
    chartData.ChartData.Workbook.Worksheets(1).Range("B3").Value = 20

    ' グラフの更新
    chartData.Refresh

    ' プレゼンテーションを保存
    ppPres.SaveAs "C:\path\to\your\chart_presentation.pptx"

    ' PowerPointを表示（バックグラウンドで動作させたくない場合）
    ppApp.Visible = True

    ' リソースの解放
    Set ppChart = Nothing
    Set ppSlide = Nothing
    Set ppPres = Nothing
    Set ppApp = Nothing

    MsgBox "スライドにグラフが追加されました。", vbInformation, "完了"
End Sub

Sub EditExistingPowerPoint()
    ' PowerPointライブラリの参照設定が必要
    ' 参照設定: Microsoft PowerPoint xx.x Object Library

    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide As PowerPoint.Slide
    Dim ppShape As PowerPoint.Shape

    ' PowerPointアプリケーションのインスタンスを取得
    Set ppApp = New PowerPoint.Application

    ' 既存のプレゼンテーションを開く
    Set ppPres = ppApp.Presentations.Open("C:\path\to\your\presentation.pptx")

    ' 最初のスライドを取得
    Set ppSlide = ppPres.Slides(1)

    ' スライドにテキストボックスを追加
    Set ppShape = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 300, 500, 50)
    ppShape.TextFrame.TextRange.Text = "追加されたテキストです。"

    ' プレゼンテーションを保存
    ppPres.Save

    ' PowerPointを表示（バックグラウンドで動作させたくない場合）
    ppApp.Visible = True

    ' リソースの解放
    Set ppShape = Nothing
    Set ppSlide = Nothing
    Set ppPres = Nothing
    Set ppApp = Nothing

    MsgBox "既存のプレゼンテーションが編集されました。", vbInformation, "完了"
End Sub