可能导致错误的原因"Unable to set the Caption property of the CheckBox class"

Question

在Excel中运行宏时，偶尔会出现以下错误:

运行时错误'1004':无法设置标题属性复选框类

出现这种情况的那部分代码看起来像这样:

Dim ws As Worksheet
Dim cbRange As Range
Dim cb As CheckBox
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets(1)
[...]
With ws
Set cbRange = .Cells(2, 2)
cbRange.Name = "aCell"
Set cb = .CheckBoxes.Add( _
cbRange.Left, _
cbRange.Top, _
cbRange.Width, _
cbRange.Height _
)
End With
With cb
.Caption = "A Checkbox"
.Value = xlOff
.LinkedCell = cbRange.Address
.Name = "aCheckbox"
End With
[...]
Application.ScreenUpdating = True

我试图以一种可控的方式重现这个问题，但没有成功。因此，我需要的建议是什么可能导致这种情况。我唯一的原因是，当我在宏执行期间与Excel窗口交互时，似乎会发生错误。宏的总运行时间(以上只是其中的一部分)大约是5秒。

我确实有一个广泛的测试套件，我经常在这个宏上运行，然后没有发生问题。在运行过程中，我总是单独离开Excel窗口。

Answer 1

我发现我可以通过在最小化工作簿窗口时运行代码来重现此问题。现在我只需要弄清楚该怎么做，但那是另一个问题!