VBAを使用してPowerPointスライドに画像ファイルを挿入する - TechRepublic

グラフィックの挿入は、ほとんどのPowerPointプレゼンテーション作成において重要な要素です。多くのグラフィックはスライド固有のものであり、一度しか使用しません。しかし、ロゴなど、頻繁に使用するグラフィックもあります。
同じファイルを挿入することは、プロセスが簡単なのでそれほど面倒ではありませんが、必要以上に手間をかける必要はありません。頻繁に挿入するグラフィックファイルがある場合は、次のようにVBAプロシージャ（マクロ）を使用してプロセスを自動化できます。

1. PowerPoint で、[Alt] + [F11] キーを押して Visual Basic Editor を起動します。
2. [挿入]メニューから[モジュール]を選択します。
3. 次のサブプロシージャを入力します。

サブ InsertLogo()

  TRロゴを挿入します。

  ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _

   ファイル名:="C:\Active\TR\September2009Blog\TR.jpg", _

   LinkToFile:=msoFalse、_

   SaveWithDocument:=msoTrue、左:=60、上:=35、_

   幅:=98、高さ:=48）。選択

終了サブ

FileName引数のファイル名とパスを必ず更新してください。LeftとTopの値は、現在のスライドの左上隅にあるロゴファイルの位置を指定します。マクロレコーダーを使用して位置とサイズの値を入力することも考えられますが、結果を調整する必要がある可能性が高いでしょう。

マクロを実行するには、スライドを選択し、「ツール」メニューから「マクロ」を選択します。次に、「マクロ」を選択し、「ロゴの挿入」を選択して「実行」をクリックします。PowerPoint は現在のスライドの左上隅にグラフィックファイルを挿入します。

ファイルが指定されたフォルダにない場合、マクロはエラーを生成するため、その可能性を考慮しておく必要があります。また、頻繁に挿入するファイルが複数ある場合は、サブプロシージャではなく関数を使用することをお勧めします。その場合、ファイル名は次のように渡されます。

関数 InsertLogo(gfilename As String)

  TRロゴを挿入します。

  ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _

   ファイル名:=gファイル名, _

   LinkToFile:=msoFalse、_

   SaveWithDocument:=msoTrue、左:=60、上:=35、_

   幅:=98、高さ:=48）。選択

終了関数

ファイルがプレゼンテーション ファイルと同じフォルダーにない場合は、渡される文字列gfilename でパス名全体を指定する必要があります。