PowerPointで差し込み印刷を実現する方法【初心者向け解決ガイド】

2025.03.132026.09.04

皆さん、こんにちは。今日は、PowerPointでの差し込み印刷についてお話しします。差し込み印刷と聞くと、Wordを思い浮かべる方が多いかもしれませんが、実はPowerPointでも似たようなことが可能なんです。今回は、その方法を初心者の方にもわかりやすく解説していきます。

差し込み印刷とは？

PowerPointのイメージ

まず、差し込み印刷とは何かをご説明します。これは、Excelなどで作成したデータを、文書の指定した位置に差し込んで印刷する機能のことです。例えば、同じ内容の文書で、名前や住所だけを変えて大量に作成したいときに非常に便利です。

では、具体的にPowerPointで差し込み印刷を行う方法をご紹介します。大きく分けて、以下の2つの方法があります。

この方法では、Excelで作成したデータをPowerPointにリンクさせて表示します。手順は以下の通りです。

これで、ExcelのデータがPowerPointにリンクされ、Excel側のデータを更新すると、PowerPoint側も自動的に更新されます。

もう一つの方法は、PowerPointのマクロ機能を使って、Excelのデータを差し込む方法です。これは少し高度な方法ですが、以下の手順で行います。

PowerPointで「開発」タブを表示し、「Visual Basic」を選択します。
「挿入」→「標準モジュール」を選択し、新しいモジュールを作成します。
以下のようなマクロコードを入力します。
vba Sub CreateSlides() ' Excelファイルを開く Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False Dim xlBook As Object Set xlBook = xlApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx") Dim xlSheet As Object Set xlSheet = xlBook.Sheets(1) ' データの読み込み Dim i As Integer For i = 1 To xlSheet.Cells(xlSheet.Rows.Count, 1).End(-4162).Row ' 新しいスライドを追加 Dim slide As slide Set slide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, ppLayoutText) ' データをスライドに挿入 slide.Shapes(1).TextFrame.TextRange.Text = xlSheet.Cells(i, 1).Value slide.Shapes(2).TextFrame.TextRange.Text = xlSheet.Cells(i, 2).Value Next i
' Excelを閉じる xlBook.Close False xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub
マクロを保存し、実行します。

このマクロを実行すると、Excelの各行のデータが新しいスライドとして追加され、それぞれのデータがスライド内に挿入されます。

いいえ、PowerPointにはWordのような差し込み印刷の標準機能はありません。しかし、上記のようにExcelデータをリンクさせたり、マクロを使用することで同様の機能を実現することが可能です。

マクロの設定や編集には基本的なプログラミングの知識が必要ですが、インターネット上には詳しい手順を紹介しているサイトや動画が多数あります。初心者の方でも、これらのリソースを参考にしながら進めることで、マクロを活用することができます。

今回は、PowerPointで差し込み印刷を行う方法についてご紹介しました。標準機能としては搭載されていませんが、Excelデータをリンクさせたり、マクロを活用することで、効率的にプレゼンテーション資料を作成することが可能です。ぜひ試してみてください。