复制工作表没有复制button

我正在尝试为游戏制作angular色创作者工具。 即时通讯几乎完成，但我想添加一个button，保存这样的字符代码

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 

但我不希望这个button被添加到复制的工作表。 任何想法如何我可以做到这一点？

thx在advence。 一个VBA / excel新手

Answer 1

有一个这样的设置：

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

相同： 选项>>高级>>剪切，复制和sorting插入的对象及其父单元格 （取消选中）

Answer 2

做什么斯科特build议，或做你现在正在做什么，并复制表单后删除button对象。 像这样的东西应该为你做。 。 。

 ActiveSheet.Objects.Delete 

Answer 3

您可以使用删除button

ws.Shapes("YourButtonName").Delete