図形に赤枠をつける

指定の場所　例；C1に画像を挿入し、
挿入した画像を縦横比固定120パーセント、
枠を赤に太さを2.25でつけるマクロを書きたいのですがどうしても上手くいきません
赤枠と太さはどのように記述したらよろしのでしょうか？

Sub 図形リサイズ縦横比固定120パーセント()

With Selection.ShapeRange
.LockAspectRatio = msoTrue '縦横比固定
.Width = .Width * 1.2 '120%に図形サイズ変更
End With

ActiveSheet.Shapes
With Selection.ShapeRange.Line
.ForeColor.RGB = RGB(255, 0, 0) '赤枠に
.Weight = 2.25 '線の太さを2.25に
End With

End Sub

No.1 ベストアンサー 回答者： DreamyCat 回答日時： 2012/04/15 13:06

他のサイトにも投稿されていて回答がついていました。

この２行の順序を逆にすればいいらしいです。
.ForeColor.RGB = RGB(255, 0, 0) '赤枠に
.Weight = 2.25 '線の太さを2.25に

この回答への補足

ありがとうございます
教えて頂いたようにやったらできたのですが
順序を逆ということは
記述にも優先順位のようなものがあるのでしょうか？

補足日時：2012/04/15 22:48