16

可能是一个非常愚蠢的问题，但我不知道如何在 PowerPoint 中重命名对象。例如，默认情况下，我的所有图表都称为“图表 1”等。有人可以帮我吗？谢谢！

4

3 回答 3

34

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

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

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

于 2008-09-24T23:19:04.777 回答
2

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

将下面的代码放入 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
于 2008-10-21T23:05:09.947 回答
1

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

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

干杯

于 2008-09-24T23:50:45.590 回答