PowerPoint VBAで選択された図形を操作する方法

2025.03.182026.01.27

皆さん、こんにちは。今日は、PowerPointでVBAを使って選択された図形を操作する方法についてお話しします。パソコンやスマホの操作が少し苦手な方でも、安心して取り組める内容になっていますので、ぜひ最後までご覧ください。

はじめにVBAとは何か？
PowerPointでの図形選択とVBAの基本
1. 選択された図形を取得する方法
2. 選択されている図形がない場合の対処
実際に図形を操作してみよう
1. 選択された図形の色を変更する
2. 選択された図形のサイズを変更する
よくある質問や疑問
1. Q1: VBAを使うと、どのような作業が効率化できますか？
2. Q2: VBAの知識が全くないのですが、どこから始めれば良いですか？
まとめ

はじめにVBAとは何か？

PowerPointのイメージ

まず、VBAとは「Visual Basic for Applications」の略で、Microsoft Office製品を自動化するためのプログラミング言語です。これを使うことで、PowerPointの作業を効率化することができます。

PowerPointでの図形選択とVBAの基本

PowerPointで図形を選択し、その図形に対して特定の操作を行いたい場合、VBAを活用すると非常に便利です。例えば、複数の図形の色を一度に変更したり、サイズを統一したりすることが可能です。

選択された図形を取得する方法

VBAでは、現在選択されている図形を取得するために、以下のように記述します。

vba

Dim selectedShapes As ShapeRange

Set selectedShapes = ActiveWindow.Selection.ShapeRange

このコードにより、選択されている図形群を`selectedShapes`という変数に格納します。

選択されている図形がない場合の対処

もし何も選択されていない状態でこのコードを実行すると、エラーが発生します。これを防ぐために、以下のように選択状態を確認することが重要です。

vba

If ActiveWindow.Selection.Type = ppSelectionShapes Then

    ' 図形が選択されています

Else

    ' 図形が選択されていません

End If

この条件分岐を使うことで、安全にコードを実行することができます。

実際に図形を操作してみよう

では、具体的に選択された図形を操作する方法を見ていきましょう。

選択された図形の色を変更する

例えば、選択された図形の塗りつぶしの色を赤に変更するには、以下のように記述します。

vba

If ActiveWindow.Selection.Type = ppSelectionShapes Then

    Dim shape As Shape

    For Each shape In ActiveWindow.Selection.ShapeRange

        shape.Fill.ForeColor.RGB = RGB(255, 0, 0)

    Next shape

End If

このコードでは、選択されている全ての図形に対して、塗りつぶしの色を赤に設定しています。

選択された図形のサイズを変更する

次に、選択された図形のサイズを変更する方法です。例えば、幅と高さをそれぞれ2倍にするには、以下のように記述します。

vba

If ActiveWindow.Selection.Type = ppSelectionShapes Then

    Dim shape As Shape

    For Each shape In ActiveWindow.Selection.ShapeRange

        shape.Width = shape.Width * 2

        shape.Height = shape.Height * 2

    Next shape

End If

このようにして、選択された図形のサイズを一括で変更することが可能です。