检查OnAction是否为空

Question

在此链接中 ，我使用SHP.OnAction （其中Dim SHP As Shape ）打印分配给形状的宏的名称。

现在，我想检查SHP.OnAction是否为空，这意味着没有宏分配给该对象。 SHP.OnAction = ""不起作用，它总是返回false 。 我也尝试过``SHP.OnAction = Empty , SHP.OnAction = Null , they always return false`。

谁能告诉我如何验证它是否为空？

Edit1：我使用下面的代码，遍历工作簿中的所有形状，并检查是否存在分配了宏的形状。 我用一些包含Chart或Picture工作簿进行了测试，即使形状没有宏，似乎sShpaes.OnAction <> ""始终返回true 。

On Error Resume Next
Dim sShapes As Shape
existsAssignedShape = False

For Each ws In Worksheets
    For Each sShapes In ws.Shapes
        st = ws.Name & "     " & sShapes.Name & "     " & sShapes.OnAction
        Print #1, st
        Print #1, ""
        If (Not existsAssignedShape) And (sShpaes.OnAction <> "") Then
            existsAssignedShape = True
        End If
    Next sShapes
Next ws

Answer 1

如果尚未将宏分配给自选图形，则以下内容将指示True ：

Sub hgfd()
    Dim s As Shape, t As String
    Set s = ActiveSheet.Shapes(1)
    t = CStr(s.OnAction)
    MsgBox t = ""
End Sub