PowerPoint VBAで画像サイズを自動調整する方法

2025.10.052026.01.27

PowerPointを使っていると、プレゼンテーションに画像を挿入する場面がよくありますよね。でも、画像を挿入した後に、サイズが合わなくて悩んだことはありませんか？今回は、PowerPointのVBA（Visual Basic for Applications）を使って、画像のサイズを自動的に調整する方法についてご紹介します。これなら、画像のサイズ調整を手間なく効率よく行えますよ！初心者の方でもわかりやすいように、しっかりと説明しますので、最後まで読んでみてくださいね。

VBAとは？画像サイズ調整に役立つ理由
PowerPoint VBAで画像サイズを自動調整する方法
よくある質問や疑問
1. VBAのコードを使う際、どんな画像にも適用されますか？
2. 画像のアスペクト比を保つ方法はありますか？
まとめ

VBAとは？画像サイズ調整に役立つ理由

PowerPointのイメージ

まず最初に、VBAって何？という方もいらっしゃるかもしれませんね。VBAとは、Microsoft Office製品の自動化を助けるためのプログラム言語です。PowerPointを操作する際に、手動で行う作業をVBAを使って自動化できるんです。

例えば、複数のスライドに画像を挿入した後、そのサイズを一括で調整する場合など、VBAを使うと効率よく作業が進みます。画像のサイズがバラバラで、見栄えが悪い場合にも、VBAを使ってすぐに整えることができるんです。

PowerPoint VBAで画像サイズを自動調整する方法

ここからは、実際にVBAを使って画像のサイズを自動で調整する方法を紹介します。初心者でも簡単にできるように、順を追って説明しますので、安心してください。

VBAエディタの開き方

最初に、VBAエディタを開きましょう。VBAエディタは、PowerPointの裏側でコードを編集するための場所です。エディタを開くためには、以下の手順を踏んでください。

PowerPointを開き、上部メニューの「開発」タブをクリックします。
「Visual Basic」をクリックすると、VBAエディタが開きます。
もし「開発」タブが表示されていない場合、ファイルタブからオプションを選び、「リボンのカスタマイズ」から「開発」にチェックを入れて表示させましょう。

画像サイズを調整するVBAコードの作成

VBAエディタを開いたら、次にコードを入力します。ここでは、スライドに挿入されたすべての画像のサイズを調整する簡単なコードをご紹介します。

Sub ResizeImages()
    Dim slide As slide
    Dim shape As shape
    
    ' すべてのスライドをループ
    For Each slide In ActivePresentation.Slides
        ' 各スライドにあるすべてのオブジェクトを確認
        For Each shape In slide.Shapes
            ' 画像オブジェクトに対して処理
            If shape.Type = msoPicture Then
                ' 画像のサイズを指定 (幅: 5cm、高さ: 5cm)
                shape.LockAspectRatio = msoFalse ' アスペクト比をロック解除
                shape.Width = 5 * 28.35 ' 5cm = 5 * 28.35
                shape.Height = 5 * 28.35 ' 5cm = 5 * 28.35
            End If
        Next shape
    Next slide
End Sub

このコードは、スライドに挿入されているすべての画像を5cm×5cmに自動調整します。もちろん、サイズは自分の好きなサイズに変更可能です！

コードを実行する方法

コードを入力したら、次にそれを実行してみましょう。実行方法はとても簡単です。

VBAエディタ内で「実行」ボタンを押します。
すると、プレゼンテーションのすべてのスライドにある画像のサイズが自動で変更されます。

これで、画像のサイズを手動で調整する手間が省けます。画像の数が多い場合でも、VBAを使えば一瞬で調整できますね。

よくある質問や疑問

VBAのコードを使う際、どんな画像にも適用されますか？

はい、このコードはすべての画像に適用されます。PowerPointのスライドに挿入された画像すべてのサイズが変更されます。ただし、図形やテキストボックスには影響を与えませんのでご安心ください。

画像のアスペクト比を保つ方法はありますか？

はい、アスペクト比を保ちながらサイズを変更したい場合は、コードを少し修正することができます。例えば、以下のコードを使うことで、アスペクト比を保ったまま画像の幅だけを変更することができます。

shape.LockAspectRatio = msoTrue ' アスペクト比をロック
shape.Width = 5 * 28.35 ' 幅だけ変更

この場合、画像の高さは自動的に調整され、アスペクト比が保たれます。

まとめ

PowerPointでの画像サイズ調整をVBAで自動化する方法をご紹介しました。VBAを使うことで、手動で画像を調整する手間を省けるだけでなく、複数のスライドでも一括で調整できます。これで、プレゼンテーションの画像がきれいに整って、よりプロフェッショナルな印象を与えることができます。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。