Excel VBAでの図形削除について質問です。

質問

Excel VBAでの図形削除について質問です。
ボタンをクリックすると、ラインを使って、直角三角形を作成できる様にしました。
その際に、画像を全て削除してから作成する様にしました。
しかし、コマンドボタンまで消えてしまい困っています。

Dim MyLine As Shape
Dim rngStart As Range, rngEnd As Range
Dim BX As Double, BY As Double, EX As Double, EY As Double
Dim dellShape As Object

Set dellShape = ActiveSheet
dellShape.Shapes.SelectAll 'すべての図形を選択する
Selection.Delete '現在選択されているオブジェクトを削除する

'Shapeを配置するための基準となるセル
Set rngStart = Range("C30")
Set rngEnd = Range("J11")

'セルのLeft、Top、Widthプロパティーを利用して位置決め
BX = rngStart.Left
BY = rngStart.Top
EX = BX + 300
EY = BY + 0

'Shapeの描画
Set MyLine = ActiveSheet.Shapes.AddLine(BX, BY, EX, EY) '横幅
Set MyLine = ActiveSheet.Shapes.AddLine(EX, EY, EX, 200) '高さ
Set MyLine = ActiveSheet.Shapes.AddLine(BX, BY, EX, 200) '斜辺

これで?削除?作図と出来るのですが、作図された図形をDeleteキーで手動で削除した後に、
もう一度コマンドボタンをクリックすると、コマンドボタンまで削除されてしまいます。
通常ではコマンドボタンは削除されないので、原因が解りません。

同じ経験をされた方や、ExcelVBAに詳しい方、アドバイスよろしくお願いいたします。

回答No.1

osamuy · ベストアンサー

＞dellShape.Shapes.SelectAll
ここで、選択すべき図形がない場合に
＞Selection.Delete
のSelectionがボタンを選んだ状態になってるとか。
Sahpes.Countが1以上だったらDeleteするようにしてみては。

試さないで書いてますが。

お礼

ありがとうございます。
やはりSelectionが影響していたみたいです。
アドバイス通りにカウントして対応しました。
ありがとうございました。

回答No.2

hige_082

＞dellShape.Shapes.SelectAll 'すべての図形を選択する
＞Selection.Delete '現在選択されているオブジェクトを削除する
削除して
Dim i As Integer
For i = dellShape.Shapes.Count To 1 Step -1
If dellShape.Shapes(i).Type <> 12 Then dellShape.Shapes(i).Delete
Next i
を追加してください
但し、フォームのボタンを使用している場合は
＞If dellShape.Shapes(i).Type <> 12 Then
を
If dellShape.Shapes(i).Type <> 8 Then
に変更してください

＞通常ではコマンドボタンは削除されない
そんなはずはないのですが
試しに下記のマクロを実行してみてください

Sub test()
ActiveSheet.Shapes.SelectAll
End Sub

このマクロを実行して、選択状態になったものを
すべて削除するようになってますよ

お礼

ありがとうございます。
通常ではボタンは削除されないみたいです。
理由はよく解りませんが・・・。
やはりカウントを使うのが良いみたいですね。
参考になりました。
m(__)m