升级到Excel 16时，单选按钮参考出现错误消息

大家好，谢谢你们的时间和支持

我的公司刚刚将我们的excel升级到excel 365，现在我使用的带有一些单选按钮的工作表将无法工作，并产生以下错误：

这是完美的工作之前，错误发生在下面的第一行代码，三个表单控制单选按钮在一个分组框，任何提示或建议将高度赞赏

    Sub Approved_Click()

    If ActiveSheet.Shapes("Yearly").ControlFormat.Value = 1 Then

    ActiveSheet.Shapes("Scroll Bar 10").Visible = False

---

由于您没有回答我关于控件类型的问题，请尝试下一个代码：

Sub testOptionButtons()
 Dim sh As Worksheet
 Set sh = ActiveSheet
 'for a Form Type use this code:
 Debug.Print sh.Shapes("Yearly").ControlFormat.value
  'for a ActiveX Type use this code:
 Debug.Print sh.Shapes("Yearly").OLEFormat.Object.Object.value
End Sub

---

或者，如果您不确定它们的类型，请同时测试它们

您的单选按钮是表单控件还是ActiveX控件？

…ActiveSheet.Shape..

可能活动的工作表不是您认为活动的工作表？请尝试使用适当的参考资料，例如

ThisWorkbook.Sheets（“YouSheetName”）.Shapes（“年度”）…

非常感谢您的快速回答，问题似乎是每次表单控件滚动条被隐藏时，它都会以某种方式被删除，我从来没有搜索过Excel 2016为什么要这样做。似乎Excel 2016在表单控件方面存在一些问题，最后我不得不删除所有这些控件以避免所有错误，再次感谢大家