Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. 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