Imagine poder, no meio da apresentação, digitar o número do Slide para o qual deseja saltar e o MS Powerpoint salta para este slide cujo o número foi digitado. Explêndido!
Apenas precisará saber qual é o número do slide onde está a citação que deseja fazer. Quem se lembra onde está? Ninguém?
Por isso, talvez queira executar esse código pouco antes de efetuar a apresentação. Ele coleta o título dos Slides, bem como os seus respectivos números e os salva em um arquivo que você possa imprimir.
Agora, quando alguém começar a perguntar sobre determinado tópico da sua apresentação poderá consultar rapidamente a sua lista e ir direto para o slide correto.
Sub GatherTitles()On Error GoTo ErrorHandlerDim oSlide As SlideDim strTitles As StringDim strFilename As StringDim intFileNum As IntegerDim PathSep as String If ActivePresentation.Path = "" Then MsgBox "Please save the presentation then try again" Exit SubEnd If#If Mac Then PathSep = ":"#Else PathSep = "\"#End IfOn Error Resume Next ' in case there's no title placeholder on the slideFor Each oSlide In ActiveWindow.Presentation.Slides strTitles = strTitles _ & "Slide: " _ & CStr(oSlide.SlideIndex) & vbCrLf _ & oSlide.Shapes.Title.TextFrame.TextRange.Text _ & vbCrLf & vbCrLfNext oSlideOn Error GoTo ErrorHandlerintFileNum = FreeFile ' PC-Centricity Alert!' This assumes that the file has a .PPT extension and strips it off to make the text file name.strFilename = ActivePresentation.Path _ & PathSep _ & Mid$(ActivePresentation.Name, 1, Len(ActivePresentation.Name) - 4) _ & "_Titles.TXT"Open strFilename For Output As intFileNumPrint #intFileNum, strTitlesNormalExit:Close intFileNumExit SubErrorHandler:MsgBox Err.DescriptionResume NormalExitEnd Sub
Tags: VBA, Powerpoint, title,text,slide number,slide index,go to,extract,outline
Nenhum comentário:
Postar um comentário