问在PowerPoint中重命名对象

EN

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

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

要重命名对象，请首先选择该对象，然后在选择窗格中双击该对象名称，您将能够键入新的对象名称。

(此答案假设您只是在开发过程中分配更有意义的名称，以便引用这些对象的其他代码更具可读性)。

将下面的代码放到sub中，然后从有问题的幻灯片中运行它。将依次选择每个形状，以便您可以看到引用的是哪个形状。一个输入框将告诉您当前名称，并要求您输入一个新名称。如果取消或确定长度为零的输入，旧名称将保留不变。此代码中没有名称条目验证，因此请确保只键入有效的名称。运行一次后，您可以再次运行它，以检查您在第一轮中键入的名称是否应用于您想要的对象。

循环将覆盖当前幻灯片上的所有对象，因此，如果您要处理多张幻灯片，则必须在每张幻灯片上分别运行此操作。幻灯片上的每个对象都会被考虑在内:标题、绘图对象、组、嵌入图片、公式等--只是不要为你不关心的对象输入新的名称。

开发完成后，最好隐藏(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

谢谢你的帮助，但实际上我只是用VBA来做的。

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

干杯