ここから質問投稿すると、最大10000ポイント当たる!!!! >>

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

A 回答 (2件)

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



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
    • good
    • 0
この回答へのお礼

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

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

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

この回答への補足

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
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング