エクセル

質問

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

回答No.2

marbin · ベストアンサー

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

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

お礼

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

回答No.1

marbin

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

補足

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

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