Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Set the text of the second paragraph in the second shape on the sixth slide in the presentation

Sub textRange()     ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _         .Paragraphs(Start:=2, Length:=1).Text = "VP of Business Development" End Sub