프로그래밍 방식으로 도형에서 매크로 제거

Question

시트의 내용에 따라 동적으로 변경되는 여러 개의 "단추"가 있습니다. 난 그냥 제대로 작동 얻을 코드의 한 라인을 알아 내기 위해 (3 호선)가 필요합니다 :

나는 완전히 모양에서 매크로를 제거 할 수 있지만 모양을 유지하려는

Public Sub ClearMacro(shapename As String) 
    On Error Resume Next 
    ActiveSheet.Shapes(shapename).OnAction = Nothing 
End Sub 

. 이 일을하기 위해 내가 다르게 할 수있는 일은 뭐니?

Answer 1

개체에 Set 및 Nothing을 사용하십시오. OnAction은 .OnAction = ""을 대신 사용하여 문자열 값을 허용합니다.

Public Sub ClearMacro(shapename As String) 
    On Error Resume Next 
    ActiveSheet.Shapes(shapename).OnAction = "" 
End Sub