Excel2007で、選択範囲内にvbaで
ワードアートを作成したのですが、その設定に

With Selection.ShapeRange.Width = WD * 0.7

(WDの変数にはSelection.Widthがはいってます)

とかやってるんですが、幅が変わらず・・・
ググりつかれました・・・
知っている方がいれば教えてください。