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



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


Nenhum comentário:

Postar um comentário

diHITT - Notícias