PowerPoint VBAで画像を簡単に選択する方法｜初心者でもできるマクロ活用術

PowerPointでスライドを作成しているとき、「画像をまとめて選択して一括で操作したい」と思ったことはありませんか？例えば、全ての画像を一度に移動したり、サイズを変更したりする場面です。そんなときに便利なのが、PowerPoint VBA（Visual Basic for Applications）を使ったマクロです。

でも、「VBAって難しそう…」「コードを書くのは初めてで不安」と感じる方も多いはず。安心してください。この記事では、初心者の方でもわかりやすいように、画像を選択するためのVBAマクロをステップ・バイ・ステップで解説します。

画像を一括で選択するマクロの基本
画像を選択した後にできる操作例
画像を選択する際の注意点
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

画像を一括で選択するマクロの基本

PowerPointのイメージ

まずは、スライド上の全ての画像を一度に選択するシンプルなマクロをご紹介します。

Sub SelectAllImages()

    Dim shp As Shape

    For Each shp In ActiveWindow.Selection.SlideRange.Shapes

        If shp.Type = msoPicture Then

            shp.Select Replace:=False

        End If

    Next shp

End Sub

このマクロは、現在表示されているスライド上の全ての画像を選択します。画像の種類を判別するために、`shp.Type = msoPicture`という条件を使っています。

画像を選択した後にできる操作例

画像を選択した後、どんな操作ができるのでしょうか？以下にいくつかの例を挙げてみます。

ここがポイント！

サイズの変更選択した画像のサイズを一括で変更できます。
位置の調整全ての画像を同じ位置に配置できます。
書式の変更枠線の色や太さ、影の効果などを一括で設定できます。

例えば、選択した画像の幅を10cm、高さを7.5cmに変更する場合、以下のようなコードを追加できます。

Sub ResizeImages()

    Dim shp As Shape

    For Each shp In ActiveWindow.Selection.ShapeRange

        shp.LockAspectRatio = msoFalse

        shp.Width = 10 * 28.35 ' 10cmをポイントに変換

        shp.Height = 7.5 * 28.35 ' 7.5cmをポイントに変換

    Next shp

End Sub

画像を選択する際の注意点

画像を選択する際には、いくつかの注意点があります。

ここがポイント！

非表示の画像非表示になっている画像は選択できません。表示状態を確認してください。
グループ化された画像複数の画像がグループ化されている場合、個別に選択するにはグループを解除する必要があります。
スライドマスター上の画像スライドマスターに配置された画像は、通常のスライド上では選択できません。マスター表示で操作してください。

よくある質問や疑問

Q1: VBAマクロを実行するにはどうすればいいですか？

PowerPointでVBAマクロを実行するには、まず「開発」タブを表示させる必要があります。表示されていない場合は、以下の手順で表示できます。

PowerPointを開き、「ファイル」タブをクリックします。
「オプション」を選択し、「リボンのユーザー設定」をクリックします。
右側のリストから「開発」にチェックを入れ、「OK」をクリックします。

その後、「開発」タブから「Visual Basic」をクリックして、VBAエディタを開きます。新しいモジュールを挿入し、上記のコードを貼り付けて実行できます。

Q2: 画像以外のオブジェクトも一括で選択できますか？

はい、可能です。`shp.Type = msoPicture`の部分を変更することで、他のオブジェクトも選択対象にできます。例えば、テキストボックスを選択する場合は、`msoTextBox`を使用します。

Q3: 複数のスライドにわたって画像を選択するにはどうすればいいですか？

複数のスライドにわたって画像を選択するには、スライドごとにループ処理を行う必要があります。以下のようなコードで実現できます。

Sub SelectImagesAcrossSlides()

    Dim sld As slide

    Dim shp As Shape

    For Each sld In ActivePresentation.Slides

        For Each shp In sld.Shapes

            If shp.Type = msoPicture Then

                shp.Select Replace:=False

            End If

        Next shp

    Next sld

End Sub