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

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

手順概要

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

要約すると、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

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

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メソッドを使用して、図形のセットから一つのグループ化された図形を形成します。