如何在EXCEL VBA在自訂表單中叫出小算盤?

Question

我想要在自訂表單中增加一按鈕, 按了鈕之後可以叫出小算盤, 請問要如何call?

Answer 1

在表單的按鈕上建立下列程式碼:

Private Sub CommandButton1_Click()
　　ret = Shell("C:\windows\system32\calc.exe", 1)
End Sub

執行即可。
======================================================
說明:
ret:若開啟成功則回傳該程式的TaskID，否則回傳0。
Shell:執行外部程式的指令。
"C:\windows\system32\calc.exe":小算盤程式的路徑及檔名

語法：Shell(pathname[,windowstyle])----

pathname(String):要執行的程式名稱，可時加上目錄或檔案夾名稱，以及磁碟機名稱。

Windowstyle(Integer)：表示在程式執行時，視窗的呈現型態：
0 -->視窗會被隱藏，且駐點會移到隱藏的視窗。
1 -->視窗具有駐點，且會還原到它原來的大小和位置。
2 -->視窗會以一個圖示來顯示，並具有駐點。
3 -->視窗會最大化，並具有駐點。
4 -->視窗會被還原到前一次的大小和位置，而目前使用中的視窗仍然維持使用中。
6 -->視窗會以一個圖示來顯示，而目前使用中的視窗仍然維持使用中。