设置多选项字段的链接单元格

Question

我有一个 Excel sheet，其中有好几组选项按钮（从表单控件插入并使用 group boces 分组）。使用 VBA 代码设置每个组的链接单元格的最简单方法是什么？我试过了

ActiveSheet.Shapes.Range("test").Select
.LinkedCell = Range("A1")

但是没有效果。 "test"是我为对应组中的其中一个选项按钮设置的名称。

（尝试通过 VBA 设置 LinkedCell 的原因是这些链接有时会因为我还不明白的原因而丢失。如果有人能指出一个可能的场景，这怎么可能发生在第一名，将不胜感激。)

Answer 1

使用命名区域只会指向工作表上的一个或多个单元格。它不涉及表单控件。您可能在工作表的某处使用了表单控件选项按钮。设置 LinkedCell 属性的代码是

Dim optButton As Shape
Set optButton = Sheet2.Shapes("Option Button 2")
optButton.ControlFormat.LinkedCell = "H4"

Setting linkedcell of multi-option field