VBA Powerpoint - Converta os textos dos Slides para Notas de Comentários - Convert PowerPoint TextBox Slides as Notes

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Documentar as apresentações que preparamos é muito importante, e confesse, a maioria de nós nunca fazemos isso.

Mas imagine que pudéssemos automaticamente copiar os conteúdos das nossas Caixas de Texto como Notas de comentário nos Slides da nossa apresentação? Isso seria muito produtivo!

Pois então, agora podemos fazer isso:

Sub ExportTextBox_AsNotes() 

Dim oPPT As Presentation 

Dim oSlide As Slide 

Dim oSlideShape As Shape 

Dim oNotesShape As Shape 

Set oPPT = ActivePresentation 

Set oSlide = oPPT.Slides(3) 

For Each oSlideShape In oSlide.Shapes 

If oSlideShape.HasTextFrame Then 

Set oNotesShape = oSlide.NotesPage.Shapes.AddShape(msoShapeRectangle, 54, 442, 432, 324) ' 

oNotesShape.TextFrame.TextRange.Text = oSlideShape.TextFrame.TextRange.Text 

End If 

Next 

If Not oSlide Is Nothing Then Set oSlide = Nothing 

If Not oPPT Is Nothing Then Set oPPT = Nothing 

End Sub

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, 

Notes, PowerPoint, Automate, Extract, Slides, TextBox