Question

我有一个使用链接和插入插入图像的Powerpoint。我需要更改它们链接到的文件名。

我无法访问源文件夹。

因此需要通过VBA进行更改。

我可以更改文件夹位置，而不是文件名。

所有需要改变的是'唐卡斯特'到'伦敦'

X：\中部\建筑\区\图片\ Forecast_Doncaster.png X：\中部\建筑\区\图片\ History_Doncaster.png X：\中部\建筑\区\图片\ Current_Doncaster.png

我试过但是它不起作用

submarket ="London"
sh.TextFrame.TextRange = Replace(sh.TextFrame.TextRange, "Doncaster", submarket

有人可以帮忙吗？

Answer 1

您发布的代码将更改形状中的文字，但不会更改图片的链接。为此你需要更像这样的东西：

Sub Test()
    Call EditLink(ActiveWindow.Selection.ShapeRange(1), ".png", ".jpg")
End Sub

Sub EditLink(oSh As Shape, strOriginalText As String, strNewText As String)
    With oSh.LinkFormat
        .SourceFullName = Replace(.SourceFullName, strOriginalText, strNewText)
    End With
End Sub

在此示例中，我将链接更改为指向与原始文件（即PNG）同名的JPG。根据需要修改以更改项目的目录名称

Answer 2

对史蒂夫的回答略有修改，我用过它并且有效！谢谢。

   ActiveWindow.View.GotoSlide s.SlideIndex
    Call EditLink(sh, "Doncaster", "London")

在Powerpoint

2 个答案: