Excel exgra 2013(Windows 7)更新excel 2016(Windows 10)后复选框从一个文件复制到另一个文件时崩溃。相同的宏在excel 2013中运行良好。
在粘贴后,Selection的属性应该是Object / OLEObjects,但它显示为Object / Range。
如果我在" two.xlsm"中选择设计模式并运行此代码它工作正常,但我们无法通过代码启用设计模式并进一步运行代码,因为启用设计模式将停止宏。
还尝试删除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