vba - 复制 activex 控件和宏

Question

是否可以将 ActiveX 控件连同与其关联的宏复制到不同的工作表？

谢谢

Answer 1

复制表单按钮的代码

activesheet.buttons("Button 1").copy
sheets("Sheet1").range("A1").pastespecial

或者您可以使用 Buttons.Add 创建一个新的

   Dim ws As Worksheet
   Dim rTarget As Range
   Set ws = Sheets("Sheet1")
   Set rTarget = ws.Range("A1")
   With ws.Buttons.Add(Left:=rTarget.Left, Top:=rTarget.Top, Width:=rTarget.Width, Height:=rTarget.Height)
      .Caption = "Some text"
      .OnAction = "Some_macro"
   End With

最后，除非application.copyobjectswithcells设置为 False ，否则只需复制范围即可

Answer 2

您可以让另一个工作表中的命令按钮或组合框访问相同的宏。