PowerPoint VBAで図形に名前を付ける方法｜初心者でもできる簡単ステップ

PowerPointでプレゼンテーションを作成していると、図形（シェイプ）をたくさん使う場面が増えてきますよね。例えば、丸や四角、矢印など。これらの図形には、デフォルトで「Rectangle 1」や「Oval 2」などの名前が自動的に付けられます。ですが、たくさんの図形を使っていると、どれがどの図形かわからなくなってしまうことも。そんなときに便利なのが、VBA（Visual Basic for Applications）を使って図形に自分で名前を付ける方法です。

この記事では、初心者の方でもわかりやすいように、図形に名前を付ける方法をステップ・バイ・ステップでご紹介します。パソコン操作に自信がない方でも安心して進められる内容になっていますので、ぜひ最後までお付き合いください。

図形に名前を付ける理由とは？
VBAで図形に名前を付ける方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

図形に名前を付ける理由とは？

PowerPointのイメージ

まず、なぜ図形に名前を付ける必要があるのでしょうか？

ここがポイント！

図形を簡単に識別できるプレゼンテーションが複雑になると、どの図形がどの内容を表しているのかがわかりにくくなります。名前を付けることで、目的の図形をすぐに見つけられます。
VBAでの操作がしやすくなるVBAを使って図形を操作する際、名前を指定することで、特定の図形を簡単に選択・変更できます。
プレゼンテーションの整理整頓名前を付けることで、プレゼンテーションが整理され、後から見返したときにわかりやすくなります。

VBAで図形に名前を付ける方法

それでは、実際にVBAを使って図形に名前を付ける方法を見ていきましょう。

VBAエディタを開く

まず、PowerPointを開き、以下の手順でVBAエディタを開きます。

PowerPointの「開発」タブをクリックします。
「Visual Basic」をクリックして、VBAエディタを開きます。

※「開発」タブが表示されていない場合は、PowerPointの設定で表示するようにしてください。

新しいモジュールを挿入する

VBAエディタが開いたら、以下の手順で新しいモジュールを挿入します。

「挿入」メニューから「モジュール」を選択します。

これで、新しいモジュールが作成されます。

コードを入力する

モジュールに以下のコードを入力します。

vba

Sub 名前を付ける()

    Dim s As Shape

    On Error Resume Next

    Set s = ActiveWindow.Selection.ShapeRange(1)

    On Error GoTo 0

    If Not s Is Nothing Then

        s.Name = InputBox("新しい名前を入力してください", "図形の名前を変更")

    Else

        MsgBox "図形が選択されていません。"

    End If

End Sub

このコードは、選択した図形に対して新しい名前を入力するダイアログを表示し、入力された名前をその図形に設定します。