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.1 回答者： gokigen2525 回答日時： 2011/05/16 18:27

『色々試した』の内容が書かれてないのではっきりと判らないのですが、

テキストボックスの.TextAlign プロパティに 2 をセットしても中央にならないってことでしょうか？

この回答への補足

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

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

補足日時：2011/05/16 18:58

No.2 ベストアンサー 回答者： jcctaira 回答日時： 2011/05/16 20:29

hakatanosiさん　こんにちは。

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

ご確認ください。

この回答へのお礼

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

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

お礼日時：2011/05/16 21:25