如何将按钮文本动态传递给vba函数

如何将按钮文本动态传递给vba函数？ 例如，我有一个带有文本“”的按钮

子状态（）
Dim ButtonText作为字符串
使用ActiveSheet.UsedRange
.AutoFilter 3，“=”
以
端接头

对于表单按钮：

Sub Status()
    Dim shp As Shape, ButtonText As String

    Set shp = ActiveSheet.Shapes(Application.Caller)
    ButtonText = shp.OLEFormat.Object.Caption

    ActiveSheet.UsedRange.AutoFilter 3, "=" & ButtonText

End Sub

---

这是什么样的按钮？它是窗体控件还是activex控件？

Sub Status()
    Dim shp As Shape, ButtonText As String

    Set shp = ActiveSheet.Shapes(Application.Caller)
    ButtonText = shp.OLEFormat.Object.Caption

    ActiveSheet.UsedRange.AutoFilter 3, "=" & ButtonText

End Sub