Verwenden von WScript.CreateObject in Excel

Question

Ich habe untersucht, mit WScript.CreateObject ("WScript.Shell") als Mittel zum Erstellen eines mehrzeiligen, Hover-over, 5 Sekunden-Popup für eine Befehlsschaltfläche in einem Benutzerformular. Von allem, was ich mir vorstellen kann, sollte das funktionieren, aber es gibt einen Fehler "Variable nicht definieren". Beim Debuggen wird "WScript" in der SET-Zeile als Problem hervorgehoben. Bitte hilf mir, dass ich verloren bin.

Private Sub CB1604A_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 

Dim WshShell 
Dim BTN 
Set WshShell = WScript.CreateObject("WScript.Shell") 

BTN = WshShell.PopUp("What do you want to do?", 5) 

Select Case BTN 
    Case 6 
     WScript.Echo "Do it now." 
    Case 7 
     WScript.Echo "Do it later." 
    Case -1 
     WScript.Echo "Cancel all actions?" 
End Select 

End Sub

Answer 1

Sie müssten einen Verweis auf WScript hinzufügen verwenden seine CreateObject - aber Sie brauchen nicht zu; verwenden Sie stattdessen VBA CreateObject auf eine Instanz von .Shell zu erstellen:

Set WshShell = CreateObject("WScript.Shell") 
BTN = WshShell.PopUp("What do you want to do?", 5) 

Und anschließend MsgBox anstelle von WScript.Echo:

... 
MsgBox "Do it now."