![]() |
|
![]() |
|
NameFromActid |
|
![]() 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 a traducir ' ' 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 '********************************************************* |
![]() |
Última actualización 21/9/2003 © Juan M. Afán deRibera |