Проверьте, нет ли OnAction

Question

В этом link я использую SHP.OnAction (где Dim SHP As Shape), чтобы напечатать имя макроса, которому присвоена фигура.

Теперь я хотел бы проверить, нет ли SHP.OnAction, что означает, что макроса не назначено этому объекту. SHP.OnAction = "" не работает, он всегда возвращает false. Я также попробовал «SHP.OnAction = Empty , SHP.OnAction = Null , they always return false` слишком ...

Может ли кто-нибудь сказать мне, как проверить, не пуст?

Редактировать 1: Я использую следующий фрагмент кода, чтобы просмотреть все фигуры в книге и проверить, есть ли форма для макроса. Я проверить его с некоторыми учебными пособиями, содержащими 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

Если нет макроса не был назначен на автофигуры, то следующий будут указывают Правда:

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