Excel VBAでPowerPointを編集する方法｜初心者でもできる簡単ステップ

パソコンやスマホの操作に不安がある方でも、ExcelとPowerPointを使いこなすことで、業務効率がぐんとアップします。特に、Excelで集計したデータをPowerPointのスライドに自動で反映させることができれば、手間を大幅に削減できます。今回は、Excel VBAを使ってPowerPointを編集する方法を、初心者の方にもわかりやすく解説します。

Excel VBAでPowerPointを操作する準備
1. PowerPointライブラリの参照設定をする
2. 新しいPowerPointプレゼンテーションを作成する
ExcelのデータをPowerPointに自動で反映させる方法
1. Excelのデータを取得する
2. 取得したデータをPowerPointに反映させる
よくある質問や疑問
1. Q1: VBAを使わずにExcelとPowerPointを連携させる方法はありますか？
2. Q2: VBAのコードを実行する際にエラーが発生しました。どうすればよいですか？
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAでPowerPointを操作する準備

PowerPointのイメージ

まずは、ExcelからPowerPointを操作できるように準備をしましょう。

PowerPointライブラリの参照設定をする

ExcelのVBAエディタを開きます。次に、「ツール」メニューから「参照設定」を選択し、「Microsoft PowerPoint xx.x Object Library」にチェックを入れます。これで、ExcelからPowerPointを操作するための準備が整いました。

新しいPowerPointプレゼンテーションを作成する

以下のコードをVBAエディタに入力し、実行してみてください。

vba

Sub CreatePowerPointPresentation()

    Dim pptApp As Object

    Dim pptPres As Object
    ' PowerPointアプリケーションを起動

    Set pptApp = CreateObject("PowerPoint.Application")

    pptApp.Visible = True
    ' 新しいプレゼンテーションを作成

    Set pptPres = pptApp.Presentations.Add
    ' タイトルスライドを追加

    pptPres.Slides.Add 1, 1 ' 1はタイトルスライドのレイアウト番号
    ' タイトルとサブタイトルを設定

    pptPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = "Excel VBAでPowerPointを操作"

    pptPres.Slides(1).Shapes(2).TextFrame.TextRange.Text = "初心者でもできる簡単ステップ"

' プレゼンテーションを保存 pptPres.SaveAs "C:\Users\YourUsername\Documents\PowerPointTest.pptx" End Sub

このコードを実行すると、新しいPowerPointプレゼンテーションが作成され、タイトルスライドに指定したテキストが入力されます。

ExcelのデータをPowerPointに自動で反映させる方法

次に、Excelで管理しているデータをPowerPointのスライドに自動で反映させる方法を紹介します。

Excelのデータを取得する

以下のコードで、Excelのシートからデータを取得します。

vba

Sub GetDataFromExcel()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' セルの値を取得

    Dim data As String

    data = ws.Range("").Value

' 取得したデータを表示 MsgBox data End Sub

このコードを実行すると、Sheet1のセルの値がメッセージボックスに表示されます。

取得したデータをPowerPointに反映させる

以下のコードで、取得したデータをPowerPointのスライドに反映させます。

vba

Sub AddDataToPowerPoint()

    Dim pptApp As Object

    Dim pptPres As Object

    Dim pptSlide As Object

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' PowerPointアプリケーションを起動

    Set pptApp = CreateObject("PowerPoint.Application")

    pptApp.Visible = True
    ' 新しいプレゼンテーションを作成

    Set pptPres = pptApp.Presentations.Add
    ' 新しいスライドを追加

    Set pptSlide = pptPres.Slides.Add(1, 2) ' 2はタイトルとコンテンツのレイアウト番号
    ' ExcelのデータをPowerPointのスライドに反映

    pptSlide.Shapes(2).TextFrame.TextRange.Text = ws.Range("").Value