Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Returning and Setting the Text in a Text Range

Sub set()     ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text _         = "Strategic Planning Meeting" End Sub