Question

我正在尝试为游戏制作角色创作工具。即将完成，但我想添加一个按钮保存角色代码看起来像这样

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

但我不希望将此按钮添加到复制的工作表中。知道我该怎么做吗？

普罗旺斯。一位VBA / excel新秀

Answer 1

有一个设置：

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

同样如下： 选项＆gt;＆gt;高级＆gt;＆gt;使用其父单元格剪切，复制和排序插入的对象（取消选中）

Answer 2

您可以使用

删除按钮

ws.Shapes("YourButtonName").Delete

Answer 3

执行Scott推荐的操作，或执行您现在正在执行的操作，并在复制工作表后删除按钮对象。这样的事情应该为你做。。。

ActiveSheet.Objects.Delete

复印表而不复制按钮

3 个答案: