Word2010 VBAでオブジェクトに文字の効果

質問

Word2010のVBAで作成するオートシェイプに文字を入力し、その文字に文字の効果を付けたいです。
付けたい効果は「ワードアートのスタイル」の「文字の効果」内にある「変形」の「四角」です。

Sub 図形()
Dim 丸 As Shape
Set 丸 = ActiveDocument.Shapes.AddShape(msoShapeOval, 1, 1, 60, 60)
丸.Select
丸.TextFrame.TextRange = "文字"

'この部分です。Excelではこれで出来たのですがWordだと書き方が違うのでしょうか？
Selection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapePlainText

End Sub

よろしくお願いいたします。

回答No.1

DreamyCat · ベストアンサー

Sub 図形()
Dim 丸 As Shape
Set 丸 = ActiveDocument.Shapes.AddShape(msoShapeOval, 100, 100, 60, 60)
丸.Select
丸.TextFrame.TextRange.Text = "文字"

'これですね。
丸.TextFrame.WarpFormat = msoWarpFormat1

お礼

出来ました！！
ありがとうございました！！