Vb.net 如何将vb复选框的值传递给excel复选框

我在互联网上尝试过这些东西，但还是不能成功

我的代码如下：

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range

If Center_for_Patient_PartnershipsCboxCheckBox.CheckState = CheckState.Checked Then
    oSheet.OLEObjects("Check Box 1").Object.Value = 1
Else
    oSheet.OLEObjects("Check Box 1").Object.Value = 0
End If`

---

如果是表单控件复选框：

oSheet.Shapes("Check box 1").ControlFormat.Value = 0  'Uncheck
oSheet.Shapes("Check box 1").ControlFormat.Value = 1  'Check

oSheet.OLEObjects("CheckBox1").Object.Value = 0  'Uncheck
oSheet.OLEObjects("CheckBox1").Object.Value = 1  'Check

如果是活动的X复选框：

oSheet.Shapes("Check box 1").ControlFormat.Value = 0  'Uncheck
oSheet.Shapes("Check box 1").ControlFormat.Value = 1  'Check

oSheet.OLEObjects("CheckBox1").Object.Value = 0  'Uncheck
oSheet.OLEObjects("CheckBox1").Object.Value = 1  'Check

---

请注意，活动x控件的名称不能有空格，但窗体控件复选框可以有空格。这就是为什么我提供了两个答案。

只是一个简短的注释，你会考虑缩短代码吗？这并不重要，但比如说“checkbox1.checked=true”。只是觉得简化代码会更容易阅读你是说活动x不能有空格吗？因为你说两者都可以