带按钮的重复工作表

Question

我目前有一个包含 3 个按钮的工作表，如果单击这些按钮，所有按钮都会运行一个子例程。我编写了另一个子例程，用于复制当前工作表并将所有数据粘贴到新工作表中。代码如下：

Public Sub DuplicateSheet()
      ActiveSheet.Copy After:=Worksheets(Sheets.Count)
      On Error Resume Next
      ActiveSheet.Name = "Test Sheet"
End Sub

但是，新工作表仅包含数据，不包含按钮。如何在仍指定子例程的情况下复制按钮？

谢谢你。

Answer 1

Excel 选项 >> 高级部分 >> 剪切、复制和排序插入的对象及其父单元格

或在VBA集中

Application.CopyObjectsWithCells = True

Answer 2

找到答案：

      ActiveSheet.Buttons.Add(488, 171, 120, 30).Select
      Selection.OnAction = "name of subroutine"

Answer 3

如果工作表已存在，我希望我的代码不重复，而是更新工作表

我该怎么做