解决Ghostscript无epspdf设备问题，用VBA将EPS导入PPT为可取消组合EMF

修正后的VBA代码 #

Sub EPStoEditableEMF()
    Dim epsFile As String
    Dim emfFile As String
    Dim gsPath As String
    Dim shp As Shape
    
    ' 配置Ghostscript路径，若已加入系统PATH可直接用"gswin64c.exe"
    gsPath = """C:\Program Files\gs\gs10.02.0\bin\gswin64c.exe"""
    
    ' 获取EPS源文件路径
    epsFile = InputBox("请输入EPS文件完整路径（如：A:\B\C.eps）", "选择EPS文件")
    If epsFile = "" Then Exit Sub
    If Dir(epsFile) = "" Then
        MsgBox "指定的EPS文件不存在！", vbExclamation
        Exit Sub
    End If
    
    ' 获取EMF保存路径
    emfFile = InputBox("请输入EMF文件保存路径（如：A:\B\output.emf）", "保存EMF文件")
    If emfFile = "" Then Exit Sub
    
    ' 调用Ghostscript将EPS转为EMF（使用emfplus设备，支持可编辑格式）
    Shell gsPath & " -sDEVICE=emfplus -dNOPAUSE -dBATCH -o """ & emfFile & """ """ & epsFile & """", vbHide
    
    ' 等待转换完成（根据文件大小调整延迟时间）
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 导入EMF到当前活动幻灯片
    Set shp = ActiveWindow.View.Slide.Shapes.AddPicture( _
        Filename:=emfFile, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=0, Top:=0)
    
    ' 取消组合EMF形状，转为可编辑对象
    shp.Select
    ActiveWindow.Selection.ShapeRange.Ungroup
    
    ' 清理临时EMF文件
    On Error Resume Next
    Kill emfFile
    On Error GoTo 0
    
    MsgBox "EPS已成功转为可编辑EMF并导入幻灯片！", vbInformation
End Sub

关键修改说明 #

• 替换Ghostscript输出设备：用emfplus替代原代码中不存在的epspdf设备，这是Ghostscript官方支持的EMF输出设备，生成的文件支持取消组合编辑
• 路径处理：所有文件路径添加双引号，解决路径含空格导致的Shell调用失败问题
• Ghostscript路径配置：明确指定Ghostscript可执行文件路径，避免因环境变量缺失导致的调用错误
• 错误防护：增加文件存在性检查、空输入判断，避免无效操作
• 自动取消组合：导入EMF后直接执行取消组合操作，一步到位实现可编辑效果
• 转换延迟：添加短时间等待，确保Ghostscript完成文件转换后再执行导入操作

注意事项 #

• 需提前安装Ghostscript，建议使用最新稳定版
• 若Ghostscript已添加到系统环境变量PATH中，可将gsPath简化为"gswin64c.exe"
• 复杂EPS文件可调整Ghostscript参数，比如添加-r300设置输出分辨率（放在-sDEVICE=emfplus之后）
• 执行代码时需确保PowerPoint有文件读写权限，避免临时文件删除失败

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