|
こんばんわ。解決済みになってるみたいやけど・・・
>For Each shp In ThisWorkbook.ActiveSheet.Shapes
>shp.Delete
↑この書き方は危険でっせ。
その理由は・・・↓これ見ておくれやす。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=26567;id=excel
ボタンも含めて全部の図形を削除してええんやったら、上記スレッドに書いたように
Sub test0()
ActiveSheet.DrawingObjects.Delete
End Sub
で、ええとは思うけど、ボタンだけ削除するんやったら
(1)フォームツールバーの「ボタン」の場合
Sub test1()
ActiveSheet.Buttons.Delete
End Sub
(2)コントロールツールボックスツールバーの「コマンドボタン」の場合
Sub test2()
Dim Obj As OLEObject
For Each Obj In ActiveSheet.OLEObjects
If Obj.progID = "Forms.CommandButton.1" Then
Obj.Delete
End If
Next
End Sub
なんて感じになるんとちゃうかな?
(エラー処理は入れてません)
試してみてな。
ほな。
|
|