可能是一个非常愚蠢的问题，但我无法弄清楚如何在PowerPoint中重命名对象。例如，默认情况下，我的所有图形都称为"图形1"等。
有人可以帮我吗？
谢谢！

解决方案

在PowerPoint 2007中，可以从"选择"窗格中执行此操作。

要显示"选择"窗格，请单击功能区中的"主页"选项卡，然后单击底部的"排列"，然后单击"选择窗格..."。选择窗格将在右侧打开。 (或者按CTRL + F10)

要重命名对象，请首先选择该对象，然后在"选择"窗格中双击该对象名称，然后便可以键入新的对象名称。

感谢帮助，但实际上我只是在使用VBA来做...

ActiveWindow.Selection.ShapeRange(1).Name = "newname"

干杯

(此答案假定我们只是在开发过程中分配了更有意义的名称，因此引用对象的其他代码可能更易读)。

将下面的代码放到一个子目录中，然后从有问题的幻灯片中运行它。每个形状都会被依次选择，因此我们可以看到正在引用的形状。输入框将告诉我们当前名称，并要求我们输入新名称。如果取消或者确定零长度输入，则旧名称将保留在原位。此代码中没有名称输入验证，因此请确保仅键入有效名称。运行一次后，可以再次运行它，只是检查我们在第一轮中键入的名称是否已应用于我们想要的对象。

该循环将覆盖当前幻灯片上的所有对象，因此，如果要处理多张幻灯片，则必须在每张幻灯片上分别运行它。幻灯片上的每个对象都会被考虑：标题，图形对象，组，嵌入的图片，方程式等。只是不要为不需要的对象键入新的名称。

开发完成后，最好隐藏(Private Sub)或者擦除此代码，以免用户误更改对象名称。

Dim s As Integer, NewName As String

With ActiveWindow.Selection.SlideRange
    For s = 1 To .Shapes.Count
        .Shapes(s).Select ' So you can see the object in question
        NewName = InputBox(.Shapes(s).Name) ' Tell what current name it is and ask for new name
        If Len(NewName) > 0 Then .Shapes(s).Name = NewName ' If you typed a new name, apply it
    Next s ' 1 To .Shapes.Count
End With ' ActiveWindow.Selection.SlideRange