使用VBA重命名PPT中的对象

Question

我目前正在尝试在PowerPoint中替换所有对象名称。通常每个内容对象都被命名为Content Placeholder＃，我已经将每个对象命名为“PptBobChart1，PptBobScatter1”，现在我需要替换all以将每个对象名称更改为“PptTomChart1，PptTomScatter1”。我知道我可以一次一个地进入选择窗格来手动更改它，但有没有办法在VBA中完成整个事情？

Answer 1

您可以尝试以下方式：

Sub renameObj()
    Dim o As Shape
    Dim s As Slide
    For Each s In ActivePresentation.Slides
        For Each o In s.Shapes
            o.Name = Replace(o.Name, "Bob", "Tom")
        Next o
    Next s
End Sub

希望这有帮助！

Answer 2

如果要为不同的01DEC2015对象类型设置不同的名称，可以使用：

activity