使用按钮复制图纸

Question

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

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

但是，新工作表只包含数据，而不包含按钮。如何在仍分配有子例程的情况下复制按钮？

谢谢。

Answer 1

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

或在VBA中设置

Application.CopyObjectsWithCells = True

Answer 2

找到答案：

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