ArgsOfActid


Volver
'*********************************************************
' En el siguiente ejemplo se utilizan dos
' métodos que son complementarios.
'
' Function NameFromActid(Actid As Long) As String
'
' Devuelve una cadena con el nombre de la acción de una
' macro.
'
' Argumentos:
'   Actid: Valor Long que representa la acción que será
'   "traducida"
'
' Function ArgsOfActid(Actid As Long) As Long
'
' Devuelve el número de argumentos de que dispone la 
' acción de una macro
'
' Argumentos
'   Actid: Valor Long que respresenta la acción de la cual
'   se quiere averiguar el nº de argumentos
'
Sub wzNameAndArgsOfActid()
Dim wzActid As Integer
Dim NombreAccion As String
    
    WizHook.Key = 51488399
    ' Los valores de las acciones están entre 1 y 62
    For wzActid = 1 To 62
        NombreAccion = WizHook.NameFromActid(wzActid)
        If NombreAccion <> "" Then
            Debug.Print "Acción: "; NombreAccion
            Debug.Print "- nº argumentos: "; _
                WizHook.ArgsOfActid(wzActid)
        End If
    Next
    
End Sub
'*********************************************************
Contactar Última actualización 21/9/2003     © Juan M. Afán deRibera