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
    ' 参照設定: Microsoft Excel xx.x Object Library

    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide As PowerPoint.Slide
    Dim ppChart As PowerPoint.Shape
    Dim chartWorkbook As Object ' Excel.Workbookを使用するため、Objectに変更

    ' 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ワークブックにアクセス
    With ppChart.Chart.chartData
        .Activate
        Set chartWorkbook = .Workbook
    End With

    ' グラフのデータを設定
    With chartWorkbook.Worksheets(1)
        .Range("A1").Value = "カテゴリー"
        .Range("A2").Value = "A"
        .Range("A3").Value = "B"
        .Range("B1").Value = "値"
        .Range("B2").Value = 10
        .Range("B3").Value = 20
    End With

    ' グラフの更新
    ppChart.Chart.Refresh

    ' プレゼンテーションを保存
    ppPres.SaveAs "C:\Users\0073002043\python\chart_presentation.pptx"

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

    ' リソースの解放
    Set chartWorkbook = Nothing
    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