Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Check whether the text frame contains text To do so, check that the HasText property of the TextFrame object is msoTrue

Sub shape()     With ActivePresentation.Slides(1).Shapes(1).TextFrame         If .HasText = msoTrue Then MsgBox .TextRange.Text     End With End Sub