当复选框从一个文件复制到另一个文件时，Excel 2016崩溃

Question

Excel exgra 2013（Windows 7）更新excel 2016（Windows 10）后复选框从一个文件复制到另一个文件时崩溃。相同的宏在excel 2013中运行良好。

在粘贴后，Selection的属性应该是Object / OLEObjects，但它显示为Object / Range。

如果我在＆＃34; two.xlsm＆＃34;中选择设计模式并运行此代码它工作正常，但我们无法通过代码启用设计模式并进一步运行代码，因为启用设计模式将停止宏。

还尝试删除temp / Excel和temp / VBE文件夹中的MSForms * exd文件。不工作。

Sub copy()

Dim Obj As Object
Dim toSheet As Worksheet

Set toSheet = Workbooks("two.xlsm").Worksheets("Sheet1")

For Each Obj In ThisWorkbook.ActiveSheet.OLEObjects
    Workbooks("one.xlsm").Worksheets("Sheet1").Activate
    Workbooks("one.xlsm").Worksheets("Sheet1").Shapes.Range(Array(Obj.Name)).Select
    Selection.copy
    toSheet.Activate
    toSheet.Paste

     Selection.ShapeRange.Name = Obj.Name

Next Obj
End Sub