沒有複製按鈕的複製工作表

我正在嘗試爲遊戲製作一個角色創建工具。 IM差不多了，但我想添加一個按鈕，保存字符代碼看起來像這樣沒有複製按鈕的複製工作表

Sub Save_character() 
Dim ws As Worksheet 

Worksheets("character creator").Copy _ 
After:=ActiveWorkbook.Sheets("character creator") 

Set ws = ActiveSheet 

ws.Name = Range("b14") 

End Sub

，但我不想這個按鈕被添加到複印紙上。任何想法我可以做到這一點？

thx in advence。一個VBA/Excel中菜鳥

來源

2016-05-16 Mulle9000

什麼按鈕，該按鈕？我有點困惑 - 爲什麼不使用'工作表（「角色創造者」）。範圍（「B14」）'？您將'ws'設置爲ActiveSheet，即複製的表格。相反，我建議首先將活動頁面聲明爲'ws'，然後在複製'ws'之後，將其命名爲'wsCopy'或類似名稱。 – BruceWayne

OH - 還是你說工作表（「角色創造者」）有一個按鈕，當你複製工作表時，你想刪除那裏的按鈕？ – BruceWayne

蝙蝠俠，很確定它是後者。我沒有得到的是爲什麼OP無法在粘貼後刪除XD – findwindow

有此設置：

Application.CopyObjectsWithCells = False 
'copy your sheet 
Application.CopyObjectsWithCells = True 'reset

同： 選項>>高級>>剪切，複製和排序與他們的親本細胞插入的對象（選中）

來源

2016-05-17 00:02:44

非常感謝！像魅力一樣工作。 – Mulle9000

做什麼斯科特建議，或做你現在正在做的事情，並在複製工作表後刪除按鈕對象。像這樣的東西應該爲你做。。。

ActiveSheet.Objects.Delete

來源

2016-05-17 02:15:25 ryguy7272

您可以刪除使用

ws.Shapes("YourButtonName").Delete

來源

2016-05-17 07:25:35

沒有複製按鈕的複製工作表

回答

相關問題