Custom Animation Pane > Display Object Name rather than Stacking O

J

JClements

Is it possible to change the Custom Animation Pane display such the NAMES of
objects are displayed rather than their stacking order?

If so, has anyone developed a plugin/script to do this?

It seems it would make life a lot easier when editing complex animations.

Then with PPTools or Shyam Pillai's object renamer, it would easy enough to
rename objects prior to using them in animation.
 
L

Lucy Thomson (aka aneasiertomorrow)

Hi John

One method that may work for you is to add text to the autoshape but make
the font colour the same as the shape then it will appear in the taskpane as
e.g. rectangle 1: <your text>. It depends on the objects and the colour/fill
they have, but it might help :)

Lucy
 
J

JClements

What I have done in the past is add text to my objects to serve as temporary
"labels" such as A1, A2, etc., for those related to an animation sequence.
After the animations have been finalized or the presentation is finished, I
delete out the text.
 
L

Lucy Thomson (aka aneasiertomorrow)

You're way ahead of me then ;-)

Another thing that may or may not work for you (again depending on your
objects, how often you use the same ones etc) is to save the objects as
pictures (and build yourself a little library of them) then re-insert them -
the picture name shows up in the custom animation dialogue. It really depends
on what you are doing whether this would be practical or not.

Lucy
 
J

John Wilson

You might also want to think about using vba to add and delete the shape name
text

eg

Sub nameme()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame And _
oshp.TextFrame.TextRange = "" Then
oshp.TextFrame.TextRange = "xx" & oshp.Name
End If
Next
Next
End Sub

Sub zap()
Dim osld As Slide
Dim oshp As Shape
Dim stext As String
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If Left$(oshp.TextFrame.TextRange, 2) = "xx" Then _
oshp.TextFrame.TextRange = ""
End If
Next
Next
End Sub
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top