Exemple : ajout d’un bouton

Cet exemple ouvre une calculatrice lorsqu’un utilisateur clique sur un bouton défini avec le nom d’action Calculatrice. Pour plus de détails sur l’ajout de boutons définis par l’utilisateur, voir Ajout d’un bouton à une barre d’outils.

Ajoutez le code à la procédure d’événement ActionCanExecute, afin qu’il soit déclenché lorsqu’un utilisateur lance une action.

Pour plus d’informations sur l’objet Wscript.Shell, reportez-vous à la documentation Microsoft. Pour accéder à l’aide du langage VBScript, choisissez Aide > Page d’accueil VBScript dans l’éditeur de script.

Function ActionCanExecute(ActionName)
        ' Initialize the function's return value to 
	 ' avoid unpredictable behavior.
        ActionCanExecute = DefaultRes 
        On Error Resume Next
        If ActionName = "UserDefinedActions.Calculator" Then
            Set shell = CreateObject("Wscript.Shell")
            shell.Run "Calc"
            Set shell = Nothing
        End If
        ActionCanExecute = DefaultRes
        PrintError "ActionCanExecute"
        On Error GoTo 0
End Function