こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2012-06-26 14:53:56

QNo.7556149

困ってます

質問者が選んだベストアンサー

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

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

投稿日時 - 2012-06-27 09:15:38

お礼

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

投稿日時 - 2012-06-27 10:35:03

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問