[[20030719112207]]　『シートコピーし時コマンドボタンはコピーしない』（ちか）　ページの最後に飛ぶ

『シートコピーし時コマンドボタンはコピーしない』（ちか）

シートをコピーしたときコマンドボタンはコピーしない。

 シートにコマンドボタンを作成し、そのボタンを押すと新規ブックにそのシートをコピーし、
 名前をつけて保存。という操作をしたいのですが、そのとき、コマンドボタンはコピーしたくないんです。
 現在のソースは
 Sheets("Sheet1").Select
 Sheets("Sheet1").Copy
 Set xlApp = CreateObject("excel.application")
 Sheet1.Paste
 ActiveWorkbook.SaveAs Filename:= _
 "C:\AAA\" & sFileName & ".xls", FileFormat:=xlNormal _
 , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
 CreateBackup:=False
 xlApp.Quit
 Set xlApp = Nothing
 です。
 シートセレクトとシートコピーの部分にセル範囲を指定してみたのですが、
 Sheets("Sheet1").Range("A3:B5").Select
 という具合に。するとシート1枚だけでなく全シートがコピーされ、セル範囲も指定できませんでした。
 どなたか教えてください。宜しくお願い致します。

 Sheets("Sheet1").Copy これだけで新規ブックにシートがコピーされるとおもいます
 コマンドボタンは Delete でもすればいいのでは　(りな)

 回答ありがとうございます。
 Sheet1.PasteのあとにSheet1.CommandButton1.Deleteを入れてみましたがコンパイルエラーが出てしまいました。
 やり方が間違ってますか～？　　（ちか）

 Sub Test()
     Worksheets("sheet1").copy
     ActiveSheet.Shapes("CommandButton1").Delete
 End Sub
 これでどうなるか試してください (りな)

 できました！！
 （りな）さんありがとうございました！！
 またよろしくお願いします。　　（ちか）

コメント返信：

[ 一覧(最新更新順) ]

[[20030719112207]] 『シートコピーし時コマンドボタンはコピーしない』（ちか） ページの最後に飛ぶ

[[20030719112207]]　『シートコピーし時コマンドボタンはコピーしない』（ちか）　ページの最後に飛ぶ