VBAを使用してPowerPointで図形を作成および挿入する方法は？

数日前、PowerPointスライドを作成するというかなりありふれたタスクを自動化したかったのです。PowerPointを自動化するときは、通常、スライドと図形のコレクションを使用します。スライドはかなり自明であり、図形はテキストボックス、アクションボタン、メディアオブジェクト、ラベル、画像、コールアウト、フローチャートなど、他のほとんどすべてのものを含みます。このチュートリアルでは、PowerPointにおけるVBAマクロの使用方法を紹介しますが、構文の一部は実際にはMicrosoft WordおよびExcelにも適用できます。

手順概要

VBAマクロの開発を開始するための準備
スライドを使ってプレゼンテーションを作成する
図形を操作する

要約すると、PowerPointでVBAマクロの開発を開始する前に、[開発]タブを有効にする必要があります。

VBAでプレゼンテーションを作成する

このチュートリアルに示すように、いくつかのスライドを使用してプレゼンテーションを自動的に作成します。

VBAで図形を操作する

まず、Alt + F11を押してVBAエディターを開きます。モジュールリストにモジュール1が含まれていることを確認してください（以下を参照）。

1. テキストボックスの追加

プレゼンテーションの最初のスライドに垂直テキストボックスを追加するためのコードは以下の通りです：

Sub CreateTextBox()
Set MySlide = ActivePresentation.Slides(2)    
With MySlide.Shapes
    .AddTextbox(Orientation:=msoTextOrientationVertical, _
    Left:=90, Top:=200, Width:=80, _
    Height:=200).TextFrame.TextRange.Text _
    = ("This is my vertical text box")
End With
End Sub

2. テキストボックスのサイズ変更

次に、テキストボックスのサイズを変更する方法です。この場合、2番目のスライドの最初の形状のサイズを変更します：

Sub ResizeText()
Set MyShape = ActivePresentation.Slides(2).Shapes(1)
'Add your required dimensions as needed below 
With MyShape
    .Width = 200
    .Height = 35
End With
End Sub

3. テキスト効果の追加

すべてのスライドにカスタムテキスト効果を追加するためのコード：

Sub SetEffects()
Dim i As Integer
For i = 1 To ActivePresentation.Slides.Count
    ActivePresentation.Slides(i) _
    .Shapes.AddTextEffect msoTextEffect12, "Draft for Review", _
    "Segoe UI", 32, msoTrue, msoTrue, 650, 50
Next
End Sub

結果は次のとおりです;-)：

VBAを使用してPowerPointで図形を作成および挿入する方法は？

PowerPointのコールアウトの追加

次に、2番目のスライドにコールアウトを追加する例です：

Sub CreateCallout()
ActivePresentation.Slides(2).Shapes.AddCallout(Type:=msoCalloutTwo, Left:=200, Top:=50, _
Width:=300, Height:=100).TextFrame.TextRange.Text = "My Callout"
End Sub

シェイプのプロパティ設定

図形の多くの書式設定プロパティは、ShapeまたはShapeRangeオブジェクトに直接適用されません。代わりに、関連する図形属性は、図形の塗りつぶしに関連するすべてのプロパティを含むFillFormatオブジェクトや、関連するOLEオブジェクトの特有のプロパティを含むLinkFormatオブジェクトなどの二次オブジェクトの下にグループ化されます。

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

形状の整列、配置、およびグループ化

AlignメソッドやDistributeメソッドを使用して、一連の図形を相互に相対的に配置します。また、GroupメソッドやRegroupメソッドを使用して、図形のセットから一つのグループ化された図形を形成します。

Tags: #VBA #PowerPoint #図形

5 Comments

林太郎 - 02/16/2025 22:04

時間はかかっても、試行錯誤するのが楽しい！この方法は活用できそう。記事を参考にします。
スミレ - 02/18/2025 11:13

こういう具体的なサンプルがあるととてもわかりやすいですね。実際にコードを試したいと思います
あかり - 02/19/2025 13:14

皆さん、VBAの基本的な部分から勉強しないといけないですけど、こういう記事は本当に助かる！感謝しかないです。
佐藤健太 - 02/24/2025 05:02

この方法はすごく役に立つ！VBAを使ってPowerPointの図形を簡単に作れるなんて夢のようです。ぜひ試してみたいです
さやか - 02/27/2025 16:04

正直なところ57行以上のコードは初心者には難しいですが、段階を追って解説してもらえると嬉しいです！