受限环境下如何将.xls/.xlsm中ActiveX复选框值迁移至.xlsx

一、读取原表单ActiveX复选框状态（无需启用宏） #

• 检查单元格链接：右键原表单的ActiveX复选框→属性，查看LinkedCell字段，对应的单元格会自动同步复选框的勾选状态（TRUE=勾选，FALSE=未勾选），直接读取该单元格值即可，无需依赖宏。
• 用Power Query提取状态：
  1. 打开原工作簿，点击「数据」选项卡→「获取数据」→「自工作表」，导入当前表单数据。
  2. 在Power Query编辑器中添加自定义列，输入公式：= [Shape].OLEFormat.Object.Value，提取复选框的勾选状态。
  3. 将查询结果加载到新工作表，即可批量获取所有复选框的状态值。

二、复制时保留ActiveX控件（避免转为图片） #

• 手动操作：复制原复选框后，在新工作表右键→选择性粘贴→选择「Microsoft Excel 对象」，即可粘贴完整的ActiveX控件，而非图片。
• 宏代码实现（若新表单模板允许启用宏）：

  ' 复制并粘贴ActiveX控件
  shp.Copy
  newwst.PasteSpecial DataType:=xlPasteOLEObjects
  

三、替代方案（无需依赖ActiveX） #

如果上述方法受限，可在新表单中使用表单控件复选框（而非ActiveX），复制表单控件不会转为图片，且同样支持单元格链接同步状态。只需将原表单的复选框状态（通过上述方法获取）同步到新表单的对应单元格，再将表单控件链接到这些单元格即可。

内容的提问来源于stack exchange，提问作者ecc450