嘿，这个需求我之前刚好折腾过，用VBScript实现起来很直接，核心就是精准定位目标文本框，复刻它的布局参数，再替换成对应图片就行。下面是具体的步骤和可直接用的代码：

核心思路 #

1. 定位PPT中名为LEFT和RIGHT的文本框（本质是Shape对象）
2. 记录原文本框的位置、宽度和高度，保证图片和原文本框的布局完全匹配
3. 删除原文本框（推荐删除，比隐藏更干净）
4. 在原位置插入本地图片，套用刚才记录的尺寸参数

完整VBScript代码示例 #

' 创建PPT应用对象
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True ' 调试时设为True方便查看效果，发布时可改为False

' 打开目标演示文稿，替换成你的PPT绝对路径
Set objPresentation = objPPT.Presentations.Open("C:\Your\File\Path\YourSlide.pptx")

' 选择要操作的幻灯片，这里以第1张为例（PPT幻灯片索引从1开始）
Set objSlide = objPresentation.Slides(1)

' 定义要插入的本地图片路径，替换成你自己的图片路径
strLeftImg = "C:\Your\Image\Path\left_banner.png"
strRightImg = "C:\Your\Image\Path\right_icon.jpg"

' -------------------------- 处理LEFT文本框 --------------------------
' 查找名为LEFT的Shape，加入错误捕获防止找不到时脚本崩溃
On Error Resume Next
Set objLeftShape = objSlide.Shapes("LEFT")
If Err.Number <> 0 Then
    WScript.Echo "错误：未找到名为LEFT的文本框，请检查Shape名称是否正确"
    WScript.Quit
End If
On Error GoTo 0

' 记录原文本框的位置和尺寸
intLeft = objLeftShape.Left
intTop = objLeftShape.Top
intWidth = objLeftShape.Width
intHeight = objLeftShape.Height

' 删除原文本框
objLeftShape.Delete

' 在原位置插入图片，参数控制是否嵌入/链接图片
objSlide.Shapes.AddPicture _
    strLeftImg, _
    msoFalse, ' msoFalse=嵌入PPT；msoTrue=链接原图片文件
    msoTrue, ' 是否随PPT一起保存
    intLeft, intTop, intWidth, intHeight

' -------------------------- 处理RIGHT文本框 --------------------------
' 查找名为RIGHT的Shape
On Error Resume Next
Set objRightShape = objSlide.Shapes("RIGHT")
If Err.Number <> 0 Then
    WScript.Echo "错误：未找到名为RIGHT的文本框，请检查Shape名称是否正确"
    WScript.Quit
End If
On Error GoTo 0

' 记录原文本框的位置和尺寸
intLeft = objRightShape.Left
intTop = objRightShape.Top
intWidth = objRightShape.Width
intHeight = objRightShape.Height

' 删除原文本框
objRightShape.Delete

' 在原位置插入图片
objSlide.Shapes.AddPicture _
    strRightImg, _
    msoFalse, _
    msoTrue, _
    intLeft, intTop, intWidth, intHeight

' 可选：保存并关闭PPT（根据需求选择是否保留）
objPresentation.Save
objPresentation.Close
objPPT.Quit

' 释放对象，避免内存泄漏
Set objRightShape = Nothing
Set objLeftShape = Nothing
Set objSlide = Nothing
Set objPresentation = Nothing
Set objPPT = Nothing

关键注意事项 #

• 确认Shape名称：一定要确保文本框的名称确实是LEFT和RIGHT，可以在PPT中右键文本框 → 「设置形状格式」→ 「大小与属性」→ 「名称」中查看和修改
• 用绝对路径：无论是PPT文件还是图片文件，都建议用绝对路径，避免脚本因路径找不到文件
• 图片嵌入/链接选择：如果希望PPT脱离原图片文件也能正常显示，就把AddPicture的第二个参数设为msoFalse（嵌入）；如果想节省PPT体积，且原图片不会被删除，可设为msoTrue（链接）

这样操作后，你原来的LEFT和RIGHT文本框就会被指定的本地图片完美替换，布局和原来的文本框完全一致～

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