(Этот ответ предполагает, что вы просто назначаете более значимые имена во время разработки, поэтому ваш другой код, который ссылается на объекты, может быть более читабельным).
Поместите приведенный ниже код в подпрограмму, затем запустите его с рассматриваемого слайда. Каждая фигура будет выбираться по очереди, чтобы вы могли видеть, на какую фигуру ссылаются. Поле ввода сообщит вам текущее имя и попросит вас ввести новое имя. Если вы отмените или подтвердите ввод нулевой длины, старое имя останется на месте. В этом коде нет проверки ввода имени, поэтому убедитесь, что вы вводите только допустимые имена. Запустив его один раз, вы можете запустить его снова, просто чтобы убедиться, что имена, введенные вами в первом раунде, были применены к объекту, который вы намеревались.
Цикл будет охватывать все объекты на текущем слайде, поэтому, если вы хотите обработать несколько слайдов, вы должны запустить это отдельно для каждого слайда. Рассматривается каждый объект на слайде: заголовок, объекты рисования, группы, встроенные изображения, уравнения и т. Д. И т. Д. - просто не вводите новое имя для объектов, которые вас не интересуют.
После того, как ваша разработка закончена, лучше всего спрятать (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