如何通过VBA将EPS文件转换为EMF并插入PPT幻灯片？

可以通过VBA结合ImageMagick实现EPS到EMF（增强型元文件）的格式转换，再将生成的EMF插入幻灯片。EMF作为矢量格式，相比PNG更适合在幻灯片中缩放，不会出现失真问题。

基于你现有的EPS转PNG代码，只需调整输出格式为EMF，并补充一些关键细节即可实现需求，修改后的代码如下：

Sub ConvertEPSToEMF()
    ' 声明文件路径变量
    Dim epsFile As String
    Dim emfFile As String
    Dim convertPath As String
    
    ' 设置文件路径
    epsFile = "F:\123.eps"
    emfFile = "F:\xyz.emf"
    ' 若convert.exe不在系统PATH中，需指定完整安装路径
    convertPath = "convert.exe" ' 示例："C:\Program Files\ImageMagick-7.x.x\convert.exe"
    
    ' 调用ImageMagick将EPS转换为EMF（用Chr(34)包裹路径避免含空格时出错）
    Shell convertPath & " " & Chr(34) & epsFile & Chr(34) & " " & Chr(34) & emfFile & Chr(34), vbHide
    
    ' 等待转换完成（根据文件大小调整延迟时间，单位：毫秒）
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 将EMF插入当前演示文稿的第1张幻灯片
    On Error Resume Next
    ActivePresentation.Slides(1).Shapes.AddPicture _
        Filename:=emfFile, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=0, Top:=0, Width:=-1, Height:=-1
    On Error GoTo 0
    
    ' 清理生成的EMF文件
    If Dir(emfFile) <> "" Then Kill emfFile
End Sub

关键说明： #

• 路径处理：如果ImageMagick的convert.exe未加入系统环境变量PATH，必须在convertPath中指定完整的安装路径，避免Shell命令执行失败。
• 等待转换：添加Application.Wait确保ImageMagick完成转换后再执行插入操作，避免因文件未生成导致的错误（可根据EPS文件大小调整延迟时长）。
• 错误处理：加入On Error语句，防止转换失败或插入操作出错时程序崩溃，同时确保临时EMF文件能被正常删除。
• 矢量优势：EMF是矢量格式，插入幻灯片后可任意缩放而不失真，比PNG更适合专业演示场景。

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