エクセルVBAでPowerPointのテキストボックスに文字を入力する

photo credit: collect.more.love via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルVBAでPowerPointを操作する方法についてシリーズでお伝えしています。

前回、以下の記事ででPowerPointスライド上の要素（シェイプと言います）のインデックス番号を取得することができました。

エクセルVBAでPowerPointの特定のシェイプのインデックス番号を調べる方法

エクセルVBAでPowerPointを操作する方法についてシリーズでお伝えしています。PowerPintのシェイプを操作するにはインデックス番号が必要ですので、それを調べる方法についてお伝えをします。

これでようやくPowerPointスライドのテキストボックスなどのオブジェクトのテキストを変更したり、コピペしたり削除したりの操作ができる地盤が整いました。

ということで、シェイプの操作の初級編として、エクセルVBAからPowerPointスライド上のテキストボックスの文字を入力する方法についてお伝えしていきます。

お題のPowerPointスライドとシェイプのインデックス番号
特定のシェイプのテキストを入力する
シェイプにテキストを入力するプログラム
まとめ
連載目次：エクセルVBAでグラフとPowerPointを操作する

お題のPowerPointスライドとシェイプのインデックス番号

まずお題とするPowerPointスライドですが、ひとまずこちらです。

この「タイトル」という文字が入力されているテキストボックスの文字を入力していきたいと思います。

ちなみに、前回の記事で紹介したインデックス番号の取得プログラムの実行結果は

Shapes(1) Footer Placeholder 1
Shapes(2) Slide Number Placeholder 2
Shapes(3) TextBox 4
Shapes(4) Oval 3
Shapes(5) Right Arrow 5
Shapes(6) Cloud Callout 6

ということで、目的のシェイプのインデックス番号は”3″ということになります。

特定のシェイプのテキストを入力する

では早速、お目当てのシェイプのテキストを入力してみましょう。インデックス番号がわかればこちらのものなんです。

特定のインデックス番号のシェイプのテキストの入力方法はこちらになります。

PowerPointスライドオブジェクト.Shapes(インデックス番号).TextFrame.TextRange.Text = 入力テキスト

Textなんちゃらのオブジェクトがいっぱい連なっていて、くどいように感じますが

TextFrameオブジェクト：Shapeオブジェクト内のテキストボックス（フォントの種類やサイズ
TextRangeオブジェクト：テキストボックスのテキスト入力範囲
Textプロパティ：テキスト入力範囲内のテキスト

という区別になります。

それぞれのオブジェクトに対するメソッドやプロパティがたっぷり用意されているのですが、都度欲しいときに調べればOKと思います。

ちなみにですが、この場合はTextプロパティを省略して

PowerPointスライドオブジェクト.Shapes(インデックス番号).TextFrame.TextRange = 入力テキスト

としても同じ結果が得られますので、こちらも覚えておくと良いと思います。

シェイプにテキストを入力するプログラム

では例として以下プログラムを実行してみましょう。

Sub PowerPointのテキストボックスのテキストを入力()

Dim ppApp As New PowerPoint.Application
ppApp.Visible = True

Dim ppPrs As PowerPoint.Presentation
Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\ひな形.pptx")

Dim ppSld As PowerPoint.Slide 'スライドオブジェクト
Set ppSld = ppPrs.Slides(1) '1ページ目のスライドをセット

ppSld.Shapes(3).TextFrame.TextRange.Text = "タイトルを変更してみた"

'ppApp.Quit
'Set ppApp = Nothing

End Sub

このプログラムを実行しますと