带按钮的复制表

Question

我目前有一个作品sheet，其中有 3 个按钮，如果单击，所有运行都是一个子程序。我写了另一个子程序，复制当前sheet并将所有数据粘贴到新作品sheet中。代码如下：

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

但是，新的 sheet 只包含数据，不包含按钮。如何复制仍分配有子程序的按钮？

谢谢。

Answer 1

找到答案：

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

Answer 2

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

或在VBA中设置

Application.CopyObjectsWithCells = True

带按钮的复制表

Duplicate sheets with buttons

excel

vba

button

duplicates