如何通过用vb 代码通过菜单编辑器打开ppt文件

option explicit
private declare function shellＥＸＥＣute _
  lib "shell32.dll" alias "shellＥＸＥＣutea" （ _
  byval hwnd as long, _
  byval lpoperation as string, _
  byval lpfile as string, _
  byval lpparameters as string, _
  byval lpdirectory as string, _
  byval nshowcmd as long) as long
private const sw_shownormal = 1

private sub menu1_click（)
  dim hand1 as long
  shellＥＸＥＣute hand1, "open", "e:\1.ppt", "", "", sw_shownormal
end sub