PowerPoint VBAで選択中の図形を操作する方法

2025.03.192026.01.27

皆さん、こんにちは！今日は、PowerPointのVBAを使って、現在選択している図形、つまりアクティブな図形を操作する方法をご紹介します。特に、パソコンやスマホがちょっと苦手な45歳以上の方々にもわかりやすくお伝えしますね。

VBAって何？PowerPointで何ができるの？

PowerPointのイメージ

まず、VBAとは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。難しそうに聞こえるかもしれませんが、これを使うと、PowerPointでの作業を自動化したり、特定の操作を簡単に行えるようになります。

PowerPointで図形を選択しているとき、その図形をVBAで操作するにはどうすれば良いのでしょうか？実は、PowerPointには「ActiveShape」というプロパティは存在しません。しかし、選択されている図形を取得する方法があります。

現在選択している図形を取得するには、以下のようなVBAコードを使用します。

vba

Dim selectedShape As Shape

Set selectedShape = ActiveWindow.Selection.ShapeRange(1)

このコードでは、現在のウィンドウで選択されている図形の1つ目を取得しています。もし複数の図形を選択している場合は、ループを使ってそれぞれの図形を操作することができます。

選択している図形の名前を知りたい場合、以下のコードを使用します。

vba

Dim selectedShape As Shape

Set selectedShape = ActiveWindow.Selection.ShapeRange(1)

MsgBox "選択中の図形の名前は: " & selectedShape.Name

このコードを実行すると、選択中の図形の名前がメッセージボックスで表示されます。

このサイトをチップで応援

￥100ありがとう￥300助かった！￥1,500神記事！

次に、選択している図形のサイズを変更してみましょう。例えば、選択中の図形の高さと幅をそれぞれ100ポイントに設定するには、以下のコードを使用します。

vba

Dim selectedShape As Shape

Set selectedShape = ActiveWindow.Selection.ShapeRange(1)

selectedShape.Height = 100

selectedShape.Width = 100

このように、VBAを使うことで、選択中の図形のプロパティを簡単に変更することができます。

はい、大丈夫です！最初は少し戸惑うかもしれませんが、基本的なコードから始めて徐々に慣れていけば、誰でも使いこなせるようになります。

もちろん可能です。選択範囲内のすべての図形を操作するには、以下のようにループを使います。

vba

Dim shp As Shape

For Each shp In ActiveWindow.Selection.ShapeRange

    ' ここに操作内容を記述します

Next shp

このコードを使えば、選択しているすべての図形に対して同じ操作を適用できます。

今回は、PowerPointのVBAを使って、選択中の図形を操作する方法をご紹介しました。最初は難しく感じるかもしれませんが、少しずつ試してみることで、作業の効率化が図れます。ぜひチャレンジしてみてくださいね。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。