マクロで選択した図形の選択状態を解除するには

Excel97,Windows98SEを使用しています。

シート上に作成したコントロールツールのコマンドボタンをクリックすると、
シート上の全ての図形を選択して、順序を最背面にするというマクロを作成したのですが、
選択した図形のハンドルが消えません。
図形選択を解除して、B26セルを選択したいのですが、どうしたらよいでしょうか？

Private Sub CButton_gyou_Click()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.ZOrder msoSendToBack
Range("B26").Select
End Sub

ご存知の方、どうぞよろしくお願いいたします。

No.1 ベストアンサー 回答者： wildcard 回答日時： 2003/11/20 17:22

コントロールツールのコマンドボタンをクリックすると、そのクリックしたコマンドボタンにフォーカスが移ってしまうのが原因かと…

これではどうでしょうか？

Private Sub CButton_gyou_Click()
Range("B26").Select
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.ZOrder msoSendToBack
Range("B26").Select
End Sub

この回答へのお礼

早速のご回答ありがとうございます！
上手くできました！
フォーカスが移動するなんて考えつきませんでした…。
またわからないことがありましたらよろしくお願いいたします。

お礼日時：2003/11/20 17:28