带有按钮的重复工作表答案

【问题标题】：Duplicate sheets with buttons带有按钮的重复工作表
【发布时间】：2021-09-22 16:32:46
【问题描述】：

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

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

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

谢谢。

【问题讨论】：

标签： excel vba button duplicates

【解决方案1】：

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

或在 VBA 集中

Application.CopyObjectsWithCells = True

【讨论】：

很好的答案！当设置为 true 时，我能够复制表单控件、ActiveX 控件和自选图形。当设置为 false 时，这些都不会被复制到新工作表中。我的应用程序默认情况下是这样。
非常感谢！！！！！！！比我得到的其他答案好多了。

【解决方案2】：

找到答案：

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

【讨论】：