別のワークブックのチェックボックスを現在のワークブックにコピーしますか？

Question

チェックボックスのあるテンプレートからデータをコピーしていますが、チェックボックスをコピーする方法がわかりませんが、データとチェックボックスをブックにコピーします。チェックボックスをテンプレート内のどこに正確に置いておきたいですか？ここで

は、しかし、データの私のコピーです：

Workbooks.Open Filename:="C:\myexcel.xlsm" 
Application.DisplayAlerts = False 
Workbooks("copysheet.xlsm").Activate 
Workbooks("copysheet.xlsm").Sheet("mysheet").Rows("1").select 
Selection.Copy 
Workbooks("currentsheet.xlsm").Activate 
Workbooks("copysheet.xlsm").Sheet("mycurrentsheet").Rows("1").select 
ActiveSheet.Paste 

Answer 1

のデータのコピーは限りコピーのチェックボックスを懸念しているとして、あなたは機能

Private Sub CopyCheckBoxes() 
    Dim fromSheet As Worksheet 
    Dim toSheet As Worksheet 
    Dim chk As CheckBox 

    Set fromSheet = Workbooks("Book1").Worksheets("Sheet1") 
    Set toSheet = Workbooks("Book3").Worksheets("Sheet1") 

    For Each Item In fromSheet.OLEObjects 
    If Item.progID = "Forms.CheckBox.1" Then 
     toSheet.OLEObjects.Add("Forms.CheckBox.1", Left:=Item.Left, Top:=Item.Top, Width:=Item.Width, Height:=Item.Height).Select 
     With Selection 
     .Name = Item.Name 
     .Object.Value = Item.Object.Value 
     .Object.Caption = Item.Object.Caption 
     End With 
    End If 
    Next 
End Sub