点击Word VBA用户窗体图片打开PDF提示找不到文件，求解决方案

以下是针对你遇到的「点击图片执行VBA代码提示找不到PDF文件」问题的具体解决思路：

• 替换Shell函数为ShellExecute API
  Shell函数对带空格的复杂路径支持有限，改用Windows系统的ShellExecute API能更可靠地调用默认程序打开文件，且无需手动处理路径转义。
  步骤：

  1. 打开VBA编辑器，插入一个标准模块，粘贴以下API声明：

     Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
         ByVal hwnd As LongPtr, _
         ByVal lpOperation As String, _
         ByVal lpFile As String, _
         ByVal lpParameters As String, _
         ByVal lpDirectory As String, _
         ByVal nShowCmd As Long _
     ) As LongPtr
     

  2. 修改用户窗体的Picture_Click事件代码：

     Private Sub Picture_Click()
         Dim filePath As String
         ' 建议使用UNC路径替代映射盘符（如\\服务器名\共享文件夹\...），避免盘符映射失效问题
         filePath = "\\服务器名称\共享目录\EGS\Templates\EGS Proposal Comm-SLED Quote Only\EGS Tech Note - Quote-Only Proposals.pdf"
         ShellExecute 0, "open", filePath, vbNullString, vbNullString, vbNormalFocus
     End Sub
     

• 改用UNC路径替代映射盘符
  你当前使用的Z:\是网络映射盘符，VBA运行时可能因用户会话权限或映射未加载导致无法访问。直接使用UNC路径（格式为\\服务器IP或名称\共享文件夹路径）能绕过盘符映射的问题，确保路径稳定可访问。

• 再次验证文件路径的有效性
  把filePath中的路径复制到Windows资源管理器的地址栏，按回车确认能否直接打开PDF文件：

  • 若无法打开，说明路径存在拼写错误、文件已被移动/删除，或当前用户无读取权限
  • 若能打开，说明问题出在VBA的路径调用方式上，优先采用ShellExecute方案

• 修正CMD命令的转义逻辑
  若坚持使用原有的Shell+CMD方案，需确保start命令的语法正确，修改后的代码如下：

  Private Sub Picture_Click()
      Dim filePath As String
      filePath = "Z:\EGS\Templates\EGS Proposal Comm-SLED Quote Only\EGS Tech Note - Quote-Only Proposals.pdf"
      Shell "cmd /c start """" " & Chr(34) & filePath & Chr(34), vbNormalFocus
  End Sub
  

  注：start命令后加""""是为了让CMD正确识别带空格的路径，避免将路径的一部分当作窗口标题。

内容的提问来源于stack exchange，提问作者user22880799