excel vba ppt テキストボックス中央揃

質問

したい事：エクセルからパワーポイントを作成したい
　　　　　　テキストボックスを作成
　　　　　　テキストボックスの文字を中央揃え←ここができないのです；；

すいません、色々試したのですが中央揃えができません、どなたかご指導して頂けないでしょうか？

↓途中までのソース
Sub PP作成_Click()
Dim app As Object
Dim pre As Object
Dim sld
　　Dim sh As Object

Set app = CreateObject("powerpoint.application")
app.Visible = True

' // PP を表示する
app.Visible = True
' // PP 新規プレゼンテーション作成
Set pre = app.Presentations.Add(WithWindow:=True)
' // PP 新規スライド挿入
Set sld = pre.Slides.Add(Index:=1, Layout:=12)

　　Set sh = sld.Shapes.AddTextbox(msoTextOrientationHorizontal _
, 100, 100, 200, 50)

　　With sh.TextFrame.TextRange
　　 .Text = "テスト"
.Font.Size = 100
.Font.Name = "HGP創英角ゴシックUB"
　　End With
End Sub

回答No.2

jcctaira · ベストアンサー

hakatanosiさん　こんにちは。

With sh.TextFrame.TextRange の下に次のプロパティを設定すればできると思います。

　　　.ParagraphFormat.Alignment = 2

ご確認ください。

お礼

試してみたところ、中央揃えになりました！
jcctairaさん、ありがとうございました！

しかしどこのドキュメントを見ればいいかがさっぱりわかりません。。。excel vbaなのか、powerpoint vba？なのか・・

回答No.1

gokigen2525

『色々試した』の内容が書かれてないのではっきりと判らないのですが、
テキストボックスの.TextAlign プロパティに 2 をセットしても中央にならないってことでしょうか？

補足

ご回答ありがとうございます。
sh.textFram.TextAlign = 2

で実行してみましたが、このプロパティまたはメソッドをサポートしていませんとでます。。