Views

Histats

Vitrine

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










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

Inline image 1

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias