寻求PowerPoint链接图片转嵌入格式的VBA解决方案

以下VBA脚本可遍历演示文稿的所有幻灯片，识别其中的链接图片并转为嵌入格式，处理后即可直接保存为普通PPTX文件，无需依赖外部图片源：

Sub ConvertLinkedImagesToEmbedded()
    Dim sld As Slide
    Dim shp As Shape
    Dim imgPath As String
    Dim tempShp As Shape
    
    ' 遍历所有幻灯片
    For Each sld In ActivePresentation.Slides
        ' 遍历幻灯片中的所有形状
        For Each shp In sld.Shapes
            ' 判断是否为链接图片类型
            If shp.Type = msoLinkedPicture Then
                ' 获取图片源文件完整路径
                imgPath = shp.LinkFormat.SourceFullName
                
                ' 检查源文件是否存在，避免断链图片报错
                If Dir(imgPath) <> "" Then
                    ' 在原位置插入嵌入格式的图片
                    Set tempShp = sld.Shapes.AddPicture( _
                        Filename:=imgPath, _
                        LinkToFile:=msoFalse, _
                        SaveWithDocument:=msoTrue, _
                        Left:=shp.Left, _
                        Top:=shp.Top, _
                        Width:=shp.Width, _
                        Height:=shp.Height)
                    
                    ' 复制原链接图片的格式（边框、阴影等）
                    shp.PickUp
                    tempShp.Apply
                    
                    ' 删除原链接图片
                    shp.Delete
                Else
                    ' 源文件不存在时输出警告，保留原链接图片（可按需修改逻辑）
                    Debug.Print "警告：幻灯片" & sld.SlideIndex & "中链接图片源文件缺失：" & imgPath
                End If
            End If
        Next shp
    Next sld
    
    MsgBox "链接图片转嵌入操作完成！", vbInformation
End Sub

使用步骤： #

• 打开目标PPT文件，按Alt + F11打开VBA编辑器
• 右键点击左侧项目窗格中的演示文稿名称 → 插入 → 模块
• 将上述代码粘贴到新建模块中
• 按F5或点击编辑器工具栏的运行按钮执行脚本
• 处理完成后，直接将演示文稿另存为普通PPTX文件即可

脚本细节说明： #

• 仅针对msoLinkedPicture类型的链接图片处理，不影响已嵌入的图片或其他形状
• 保留原图片的位置、尺寸及格式样式（如边框、阴影效果）
• 对断链图片会输出警告并保留原形状，可根据需求修改这部分逻辑（例如直接删除断链图片）
• 插入的图片设置为SaveWithDocument:=msoTrue，确保完全嵌入到PPT文件内

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