VBA Powerpoint - Acrescentando comentários aos Slides com codificação

Termo de Responsabilidade

Adicione comentários nos slides do MS POWERPOINT através de VBA.

'Open Microsoft powerpoint application and add a Slide

'Open VBA editor(Alt+F11),Insert a Module and Paste the following code in to the code window

'Close VBA Editor and run this Macro from Powerpoint window(Alt+F8)

Sub AddNotestoPP()

Dim Sl As Slide Dim Sh As Shape Dim strNotesPageText As String Let strNotesPageText = "Adicionando comentários no Slide do Powerpoint" & vbCrLf  & " Com código VBA"  Set Sl = ActivePresentation.Slides(1)  If Sl.NotesPage.Shapes.Count = 0 Then 'If no shapes to take Notes then add a shape first    

Sl.NotesPage.Shapes.AddShape msoShapeRectangle, 0, 0, 0, 0 Let Sh = Sl.NotesPage.Shapes(1) Sh.TextFrame.TextRange.Text = strNotesPageText Else 'has shapes, so see if they take text For Each Sh In Sl.NotesPage.Shapes If Sh.HasTextFrame Then Let Sh.TextFrame.TextRange.Text = strNotesPageText Exit For End If Next Sh

End If

End Sub

Tags: VBA, Powerpoint, Notes, anotações