【マクロ】ワードアートの文字の輪郭を消す

質問

excel 2010です。
ワードアートの文字の輪郭を消すマクロを作りたいのですが、
マクロの記憶で、作られた以下のコードでは、消えません。
どうすれば、消せますか。
よろしくお願いします。

Sub Macro()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1,"ABC","Times New Roman",128,False,False,0,0).Select
Selection.ShapeRange.TextFrame2.TextRange.Font.Line.Visible = msoFalse
End Sub

回答No.1

real beatin（@realbeatin） · ベストアンサー

こんにちは。

> ワードアートの文字の輪郭を ... どうすれば、消せますか。
ワードアートの３D効果はそのままに、ただ文字の輪郭を消す、ということでしたら、
ご提示のマクロの２行めを
Selection.ShapeRange.TextFrame2.TextRange.Font.Line.Transparency = 1
のように置き換えれば、見た目上、消すことができます。

Selection.ShapeRange.TextFrame2.TextRange.Font.Line.Visible = msoFalse
この記述を実行しても何も起こりません。理由はわかりません。
.Font.Line.Visible プロパティを変更する、他の方法については、
今と処必要を感じていないので、探していませんが、
もしも、お求めでしたら、その理由を補足として書いてください。
ワードアートの文字の輪郭を消す、他の方法については、
最初に示した通りです。

以上です。

お礼

Transparency = 1

なるほど。
使わせていただきます。
ありがとうございました。