Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    text
    copied!<p>(This answer assumes you are merely assigning more meaningful names during development, so your other code that references the objects can be more readable).</p> <p>Put the code below into a sub, then run it from the slide in question. Each shape will be selected in turn, so you can see what shape is being referenced. An input box will tell you the current name and ask you for a new name. If you cancel or OK a zero-length input, the old name will stay in place. There is no name entry validation in this code, so be sure you type only valid names. After running it once, you can run it again just to check that the names you typed in the first round were applied to the object you intended.</p> <p>The loop will cover all objects on the current slide, so if you want to process multiple slides, you have to run this separately on each slide. Every object on the slide is considered: title, drawing objects, groups, embedded pictures, equations, etc. etc. - just don't type a new name for objects that you don't care.</p> <p>After your development is finished, best hide (Private Sub) or erase this code, so your users don't change object names by mistake.</p> <pre><code>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) &gt; 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 </code></pre>
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload