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

Question

我有一个带有很多选项按钮组的Excel工作表（从表单控件插入并使用组大括号分组）。使用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"