vba スライドに図形を挿入し文字を入力するには

質問

一番最後のスライドに、図形を挿入するところまでは出来たのですが
その図形に文字を表示するにはどうすればいいでしょうか？

Sub test()

Dim myDocument As Variant

i = ActivePresentation.Slides.Count

Set myDocument = ActivePresentation.Slides(i)
myDocument.Shapes.AddShape Type:=msoShapeRectangle, Left:=50, Top:=50, Width:=100, Height:=50
myDocument.Shapes.Title = "a"
myDocument.Shapes.Text = "a"

End Sub

まではできたのですが、
myDocument.Shapes.Title = "a"
myDocument.Shapes.Text = "a"
がエラーになります。

別に図形ではなくてもテキストボックスが挿入できればそれでいいのですが、
図形の挿入の仕方しかわかりませんでした。

回答No.1

eden3616 · ベストアンサー

以下の用途でしか使わないのであれば変数「i」も使わなくてもいいのでは。

Sub test()
Dim myDocument As Variant
Dim i As Integer
With ActivePresentation
　　i = .Slides.Count
　　Set myDocument = .Slides(i).Shapes.AddShape( _
　　　　Type:=msoShapeRectangle, _
　　　　Left:=50, _
　　　　Top:=50, _
　　　　Width:=100, _
　　　　Height:=50 _
　　)
　　myDocument.TextFrame.TextRange.Text = "a"
End With
End Sub

お礼

myDocument.TextFrame.TextRange.Text = "a"
で無事いけました！
iは不要ですね。
ありがとうございました。