エクセル

図形のコマンドで「最背面に移動」をマクロで作成したいのですが、
どうしたら良いのか教えて下さい。

No.1 回答者： marbin 回答日時： 2008/03/09 17:40

マクロの自動記録が参考になると思います。

この回答への補足

With ActiveSheet.Shapes _
.AddShape(msoShapeOval, 340, 140, 73, 52).Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
Selection.ShapeRange.ZOrder msoSendToBack
End With

で作ってみましたが、「実行時エラー438　オブジェクトはこのプロパティまたはメソッドをサポートしてません」
となってしまいます、どうすればよいのでしょう？

補足日時：2008/03/09 19:00

No.2 ベストアンサー 回答者： marbin 回答日時： 2008/03/09 19:24

何も選択してないのに、選択しているものを最背面にしようとしているからです。

Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With
.ZOrder msoSendToBack
End With

この回答へのお礼

とっても勉強になりました。
ありがとうございます。

お礼日時：2008/03/09 19:38