Narration and linked sound files

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

rogge - 20 Dec 2007 16:08 GMT

When recording narration the files are named <PPT file name><SlideID>. I
want to use SlideNumber to EASILY indicate slide and sound file pairings.

What recommendations do you have to make the pairings between slides and
sound files more intuitive?

thank you for your help!
-rogge

Reply to this Message

John Wilson - 20 Dec 2007 18:02 GMT

As far as I know (maybe someone knows better) you cannot change the default
save name for linked narrations (except manually file by file of course)

It is possible though to use vba code to show (and hide) the Slide ID in
each slide would that help?

Signature

Amazing PPT Hints, Tips and Tutorials

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

> When recording narration the files are named <PPT file name><SlideID>. I
> want to use SlideNumber to EASILY indicate slide and sound file pairings.
[quoted text clipped - 4 lines]
> thank you for your help!
> -rogge

Reply to this Message

rogge - 20 Dec 2007 18:24 GMT

I'll lookinto using VBA. I'll be distributing a template so i want it simple
for end users.

hmm... maybe number the slides in a text box that is hidden during slide
shows (probably have to place the text box off the viewable area)?

Thanks for your input, John; this will give me some more options.
have a good holiday

> As far as I know (maybe someone knows better) you cannot change the default
> save name for linked narrations (except manually file by file of course)
[quoted text clipped - 10 lines]
> > thank you for your help!
> > -rogge

Reply to this Message

John Wilson - 20 Dec 2007 19:32 GMT

This might help:
Sub ID_me()
Dim osld As Slide
Dim otxt As Shape
For Each osld In ActivePresentation.Slides
Set otxt = osld.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, -25, 200,
20)
With otxt
.TextFrame.TextRange = "My SlideID is " & CStr(osld.SlideID)
'tag makes it easier to identify and delete if needed
.Tags.Add "Me", "ID"
End With
Next osld
End Sub

Sub zapper()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Tags("Me") = "ID" Then oshp.Delete
Next oshp
Next osld
End Sub

Signature

Amazing PPT Hints, Tips and Tutorials

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

> I'll lookinto using VBA. I'll be distributing a template so i want it simple
> for end users.
[quoted text clipped - 19 lines]
> > > thank you for your help!
> > > -rogge

Reply to this Message