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

別のシートのコマンド ボタンまたはコンボ ボックスから同じマクロにアクセスできます。