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

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

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

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

これで、Shapesの操作を開始できます。まず、Alt + F11を押してVBAエディターを開きます。前のチュートリアルに従った場合は、モジュールリストにモジュール1が含まれているはずです（以下を参照）。

VBAで図形を操作する

VBAでテキストボックスを追加する

プレゼンテーションの最初のスライドに垂直テキストボックスを追加することから始めます。次のコードをModule1に追加し、先に進んで[保存]ボタン（Ctrl + s）を押し、マクロを実行します（F5キーを押すか、[サブ/ユーザーフォームの実行]を押します）。

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

VBAを使用すると、テキストボックスのサイズをかなり簡単に変更できることに注意してください。この場合、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

VBAを使用したテキスト効果

ここで、プレゼンテーションのすべてのスライドにテキストボックスを追加するとします。今回は、もう少し視覚的に魅力的です。これを行うには、VBAを使用して、プレゼンテーションの1つ以上のスライドに埋め込むことができるカスタムテキスト効果を作成します。最初にプレゼンテーションスライドをループしてから、必要に応じてテキスト効果を追加します。