EXCEL VBA で自在に図形を変化させたい(2)
前回，質問させてもらい、非常に役に立つ回答をもらい解決しました。
今回、いろいろ本を見ても解決できない問題がありましたので再度質問をします。
EXCEL上にコマンドボタンを一つ配置します。右クリック→プロパティ→オブジェクト名をCmd作図に変更しておきます。
デザインモードでボタンをダブルクリックしてVBEでコード表示にします。
Private Sub Cmd作図_Click()
ActiveSheet.Shapes.AddLine 200, 200, 400, 400
End Sub
これでEXCEL上のコマンドボタンを押すと直線が作図できます。
次にAddLine以下の数字を変えて再度実行しますと別の直線がかけるのですが最初の直線が残ったままですので重なったりします。
前回、回答では
Private Sub Cmd作図_Click()
With ActiveSheet
For Each Sh In .Shapes
Sh.Delete
Next Sh
ActiveSheet.Shapes.AddLine 200, 200, 400, 400
End With
End Sub
という回答をもらっています。こうすれば前回描いた線を消してから作図できます。
しかし、前回は「マクロの実行」ボタンからの作図でしたので問題にはならなかったのですが、今回、EXCEL上にコマンドボタンを配置したところ、コマンドボタンもShapesと認識してしまうらしく、線と一緒に消されてしまいます。
この問題を解決できるコードを教えてもらいたいのですが。
よろしくお願いします。
お礼
簡単にできました！ありがとうございます！！