マクロの実行ボタンを削除したい

いつもお世話になっています。
本日、安価なマクロ辞典を購入して、早速シート内にマクロ実行ボタンを２つ作ったのですが、シートをコピーした先では、ボタン１は必要ないので削除したいのですが、その方法は載ってなくマクロの記録などでいろいろやってみたのですが全くわかりません。
マクロ内で削除する方法を教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： onlyrom 回答日時： 2009/03/12 21:56

　

ボタンには、フォームツールバーのボタンと
コントロールツールバーのボタンの２つありますが
ボタン１、とあることからフォームツールバーのボタンと判断しての回答です。

シートは、Sheet1、Sheet２，Sheet３
ボタンは、Sheet1上に、ボタン１、ボタン２

そして、Sheet１をSheet３の後にコピーして
コピーしたシートのボタン２を削除する場合。

'--------------------------------
Sub Test()
　　Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
　　ActiveSheet.Shapes("Button 2").Delete
End Sub
'---------------------------------
　

この回答へのお礼

早速の回答ありがとうございます。
うまくいきました。
又、何かありましたらよろしくお願いします

お礼日時：2009/03/12 22:11