获取Excel内嵌OLE对象的值

好久不更新了，啊哈哈。
最近因为有老兄弟问起来，琢磨了些东西。在这里记下来。

image.png

如图，要求是让机器人获取Excel内嵌复选框的值。
手头没有合适的软件，第一个选项是VBA。

Public Sub doexec()
    Dim s As Shape
    Set s = Sheet1.Shapes(1)
    s.ControlFormat.LinkedCell = Sheet1.Range("a3").Address
    MsgBox Sheet1.Range("a3").Text
End Sub

执行思路是，先执行类似上面一段代码通过linkedcell赋值给某个Range。机器人再去获取Range的值。