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

Question

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

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

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

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

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

Answer 1

Hmpf ...

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

似乎可以解决问题。