Переименование объектов в PowerPoint

Ответ 1

В PowerPoint 2007 вы можете сделать это на панели выбора.

Чтобы отобразить панель "Выбор" , нажмите вкладку "Главная" на ленте, затем нажмите "Упорядочить", а затем "Панель выбора..." внизу. Справа откроется панель "Выбор" . (Или нажмите CTRL + F10)

Чтобы переименовать объект, сначала выберите объект, а затем дважды щелкните по имени объекта на панели "Выбор" , и вы сможете ввести новое имя объекта.

Ответ 2

(Этот ответ предполагает, что вы просто назначаете более значимые имена во время разработки, поэтому ваш другой код, который ссылается на объекты, может быть более читаемым).

Поместите код ниже в подпрограмму, а затем запустите его с рассматриваемого слайда. Каждая фигура будет выбрана по очереди, чтобы вы могли видеть, на какую фигуру ссылаются. Поле ввода сообщит вам текущее имя и попросит вас ввести новое имя. Если вы отмените или OK ввод нулевой длины, старое имя останется на месте. В этом коде нет подтверждения ввода имени, поэтому обязательно вводите только допустимые имена. После запуска один раз вы можете запустить его снова, чтобы проверить, что имена, введенные вами в первом раунде, были применены к объекту, который вы намеревались.

Цикл будет охватывать все объекты на текущем слайде, поэтому, если вы хотите обрабатывать несколько слайдов, вы должны запускать их отдельно на каждом слайде. Каждый объект на слайде считается: заголовок, чертежные объекты, группы, встроенные изображения, уравнения и т.д. И т.д. - просто не вводите новое имя для объектов, которые вам все равно.

После завершения разработки лучше скрыть (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

Ответ 3

Спасибо за вашу помощь, но на самом деле я просто делаю это с помощью VBA...

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

Приветствия