如何在 VBA 中添加表单控件选项按钮（不是 ActiveX 选项按钮）？

Question

我需要知道如何通过 VBA 将表单控件选项按钮添加到工作表。到目前为止，我只设法添加了行为不同的 ActiveX 控件。

我正在构建一个 Excel 365 表单（在工作表上，而不是 VBA 用户表单上），其中包括几组单选按钮/选项按钮。我看到我可以添加两种选项按钮：表单控件和 ActiveX 控件。 两个控件都可以链接到一个单元格，但返回不同的结果： 表单控件返回一个数字作为结果 ActiveX 控件返回 TRUE 或 FALSE

我可以使用以下代码在我的工作表中添加一个选项按钮：

With FormSheet.OLEObjects.Add(ClassType:="Forms.Optionbutton.1")
    .Left = 10
end with

我希望获得表单控件，但据我所知，创建的控件是 ActiveX 控件。当我添加 .LinkedCell 时，它们会返回布尔值。

Answer 1

哼哼……

Dim OptBtn As OptionButton
Set OptBtn = ActiveSheet.OptionButtons.Add(580.5, 48.75, 72, 72)

似乎可以解决问题。