【パワポVBA】全画像を指定サイズと指定位置に変更するマクロ

PowerPoint VBAを使い、全ての画像を指定サイズと指定位置に変更するマクロをご紹介します。

各スライドの同じ位置に同じサイズの画像を貼り付けたいときに有効です。

コードは神AI「ChatGPT」で開発しました。ChatGPTについては、次の記事で解説しています。

神AI「ChatGPT」でパワポVBAを開発【始め方から解説】

ChatGPTとは、質問を投げると人工知能が回答してくれるチャットサービスです。Excelでの数式や…

この記事の目次

全画像を指定サイズと指定位置に変更するマクロ
実行結果
画像を一枚ずつ各スライドに一括挿入する

全画像を指定サイズと指定位置に変更するマクロ

Sub ResizeAndMoveAllImages()

    '変数の定義
    Dim shp As shape
    Dim sld As Slide

    '全スライドを処理する
    For Each sld In ActivePresentation.Slides
        'スライドに存在する全画像を処理する
        For Each shp In sld.Shapes
            '画像の場合のみ処理する
            If shp.Type = msoPicture Then
        
                '縦横比を固定するのチェックをはずす
                shp.LockAspectRatio = msoFalse
                '画像のサイズを変更する
                shp.Width = 72 / 2.54 * 10 '横幅を10cmにする
                shp.Height = 72 / 2.54 * 10 '縦幅を10cmにする
                '画像を指定座標に移動する
                shp.Left = 72 / 2.54 * 2 'X座標を2cmにする
                shp.Top = 72 / 2.54 * 2 'Y座標を2cmにする
            End If
        Next shp
    Next sld

End Sub

全スライドの全画像が横幅10cm、縦幅10cmにリサイズされ、X座標2cm、座標2cmに移動されます。それぞれの値は、適宜変更してください。

マクロの使い方は、次の記事で解説しています。